;;;; Generated on 3/22/2021 at 17:54:18 (UTC-8).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%CBBCSD %CBBCSD %%CBDSQR %CBDSQR %%CGBBRD %CGBBRD
  %%CGBCON %CGBCON %%CGBEQU %CGBEQU %%CGBEQUB %CGBEQUB %%CGBRFS %CGBRFS
  %%CGBRFSX %CGBRFSX %%CGBSV %CGBSV %%CGBSVX %CGBSVX %%CGBSVXX %CGBSVXX
  %%CGBTF2 %CGBTF2 %%CGBTRF %CGBTRF %%CGBTRS %CGBTRS %%CGEBAK %CGEBAK %%CGEBAL
  %CGEBAL %%CGEBD2 %CGEBD2 %%CGEBRD %CGEBRD %%CGECON %CGECON %%CGEEQU %CGEEQU
  %%CGEEQUB %CGEEQUB %%CGEES %CGEES %%CGEESX %CGEESX %%CGEEV %CGEEV %%CGEEVX
  %CGEEVX %%CGEHD2 %CGEHD2 %%CGEHRD %CGEHRD %%CGEJSV %CGEJSV %%CGELQ %CGELQ
  %%CGELQ2 %CGELQ2 %%CGELQF %CGELQF %%CGELQT %CGELQT %%CGELQT3 %CGELQT3 %%CGELS
  %CGELS %%CGELSD %CGELSD %%CGELSS %CGELSS %%CGELSY %CGELSY %%CGEMLQ %CGEMLQ
  %%CGEMLQT %CGEMLQT %%CGEMQR %CGEMQR %%CGEMQRT %CGEMQRT %%CGEQL2 %CGEQL2
  %%CGEQLF %CGEQLF %%CGEQP3 %CGEQP3 %%CGEQR %CGEQR %%CGEQR2 %CGEQR2 %%CGEQR2P
  %CGEQR2P %%CGEQRF %CGEQRF %%CGEQRFP %CGEQRFP %%CGEQRT %CGEQRT %%CGEQRT2
  %CGEQRT2 %%CGEQRT3 %CGEQRT3 %%CGERFS %CGERFS %%CGERFSX %CGERFSX %%CGERQ2
  %CGERQ2 %%CGERQF %CGERQF %%CGESC2 %CGESC2 %%CGESDD %CGESDD %%CGESV %CGESV
  %%CGESVD %CGESVD %%CGESVDQ %CGESVDQ %%CGESVDX %CGESVDX %%CGESVJ %CGESVJ
  %%CGESVX %CGESVX %%CGESVXX %CGESVXX %%CGETC2 %CGETC2 %%CGETF2 %CGETF2
  %%CGETRF %CGETRF %%CGETRF2 %CGETRF2 %%CGETRI %CGETRI %%CGETRS %CGETRS
  %%CGETSLS %CGETSLS %%CGGBAK %CGGBAK %%CGGBAL %CGGBAL %%CGGES %CGGES %%CGGES3
  %CGGES3 %%CGGESX %CGGESX %%CGGEV %CGGEV %%CGGEV3 %CGGEV3 %%CGGEVX %CGGEVX
  %%CGGGLM %CGGGLM %%CGGHD3 %CGGHD3 %%CGGHRD %CGGHRD %%CGGLSE %CGGLSE %%CGGQRF
  %CGGQRF %%CGGRQF %CGGRQF %%CGGSVD3 %CGGSVD3 %%CGGSVP3 %CGGSVP3 %%CGSVJ0
  %CGSVJ0 %%CGSVJ1 %CGSVJ1 %%CGTCON %CGTCON %%CGTRFS %CGTRFS %%CGTSV %CGTSV
  %%CGTSVX %CGTSVX %%CGTTRF %CGTTRF %%CGTTRS %CGTTRS %%CGTTS2 %CGTTS2
  %%CHB2ST_KERNELS %CHB2ST_KERNELS %%CHBEV %CHBEV %%CHBEV_2STAGE %CHBEV_2STAGE
  %%CHBEVD %CHBEVD %%CHBEVD_2STAGE %CHBEVD_2STAGE %%CHBEVX %CHBEVX
  %%CHBEVX_2STAGE %CHBEVX_2STAGE %%CHBGST %CHBGST %%CHBGV %CHBGV %%CHBGVD
  %CHBGVD %%CHBGVX %CHBGVX %%CHBTRD %CHBTRD %%CHECON %CHECON %%CHECON_3
  %CHECON_3 %%CHECON_ROOK %CHECON_ROOK %%CHEEQUB %CHEEQUB %%CHEEV %CHEEV
  %%CHEEV_2STAGE %CHEEV_2STAGE %%CHEEVD %CHEEVD %%CHEEVD_2STAGE %CHEEVD_2STAGE
  %%CHEEVR %CHEEVR %%CHEEVR_2STAGE %CHEEVR_2STAGE %%CHEEVX %CHEEVX
  %%CHEEVX_2STAGE %CHEEVX_2STAGE %%CHEGS2 %CHEGS2 %%CHEGST %CHEGST %%CHEGV
  %CHEGV %%CHEGV_2STAGE %CHEGV_2STAGE %%CHEGVD %CHEGVD %%CHEGVX %CHEGVX
  %%CHERFS %CHERFS %%CHERFSX %CHERFSX %%CHESV %CHESV %%CHESV_AA %CHESV_AA
  %%CHESV_AA_2STAGE %CHESV_AA_2STAGE %%CHESV_RK %CHESV_RK %%CHESV_ROOK
  %CHESV_ROOK %%CHESVX %CHESVX %%CHESVXX %CHESVXX %%CHESWAPR %CHESWAPR %%CHETD2
  %CHETD2 %%CHETF2 %CHETF2 %%CHETF2_RK %CHETF2_RK %%CHETF2_ROOK %CHETF2_ROOK
  %%CHETRD %CHETRD %%CHETRD_2STAGE %CHETRD_2STAGE %%CHETRD_HE2HB %CHETRD_HE2HB
  %%CHETRF %CHETRF %%CHETRF_AA %CHETRF_AA %%CHETRF_AA_2STAGE %CHETRF_AA_2STAGE
  %%CHETRF_RK %CHETRF_RK %%CHETRF_ROOK %CHETRF_ROOK %%CHETRI %CHETRI %%CHETRI2
  %CHETRI2 %%CHETRI2X %CHETRI2X %%CHETRI_3 %CHETRI_3 %%CHETRI_3X %CHETRI_3X
  %%CHETRI_ROOK %CHETRI_ROOK %%CHETRS %CHETRS %%CHETRS2 %CHETRS2 %%CHETRS_3
  %CHETRS_3 %%CHETRS_AA %CHETRS_AA %%CHETRS_AA_2STAGE %CHETRS_AA_2STAGE
  %%CHETRS_ROOK %CHETRS_ROOK %%CHFRK %CHFRK %%CHGEQZ %CHGEQZ %%CHLA_TRANSTYPE
  %CHLA_TRANSTYPE %%CHPCON %CHPCON %%CHPEV %CHPEV %%CHPEVD %CHPEVD %%CHPEVX
  %CHPEVX %%CHPGST %CHPGST %%CHPGV %CHPGV %%CHPGVD %CHPGVD %%CHPGVX %CHPGVX
  %%CHPRFS %CHPRFS %%CHPSV %CHPSV %%CHPSVX %CHPSVX %%CHPTRD %CHPTRD %%CHPTRF
  %CHPTRF %%CHPTRI %CHPTRI %%CHPTRS %CHPTRS %%CHSEIN %CHSEIN %%CHSEQR %CHSEQR
  %%CLA_GBAMV %CLA_GBAMV %%CLA_GBRCOND_C %CLA_GBRCOND_C %%CLA_GBRCOND_X
  %CLA_GBRCOND_X %%CLA_GBRFSX_EXTENDED %CLA_GBRFSX_EXTENDED %%CLA_GBRPVGRW
  %CLA_GBRPVGRW %%CLA_GEAMV %CLA_GEAMV %%CLA_GERCOND_C %CLA_GERCOND_C
  %%CLA_GERCOND_X %CLA_GERCOND_X %%CLA_GERFSX_EXTENDED %CLA_GERFSX_EXTENDED
  %%CLA_GERPVGRW %CLA_GERPVGRW %%CLA_HEAMV %CLA_HEAMV %%CLA_HERCOND_C
  %CLA_HERCOND_C %%CLA_HERCOND_X %CLA_HERCOND_X %%CLA_HERFSX_EXTENDED
  %CLA_HERFSX_EXTENDED %%CLA_HERPVGRW %CLA_HERPVGRW %%CLA_LIN_BERR
  %CLA_LIN_BERR %%CLA_PORCOND_C %CLA_PORCOND_C %%CLA_PORCOND_X %CLA_PORCOND_X
  %%CLA_PORFSX_EXTENDED %CLA_PORFSX_EXTENDED %%CLA_PORPVGRW %CLA_PORPVGRW
  %%CLA_SYAMV %CLA_SYAMV %%CLA_SYRCOND_C %CLA_SYRCOND_C %%CLA_SYRCOND_X
  %CLA_SYRCOND_X %%CLA_SYRFSX_EXTENDED %CLA_SYRFSX_EXTENDED %%CLA_SYRPVGRW
  %CLA_SYRPVGRW %%CLA_WWADDW %CLA_WWADDW %%CLABRD %CLABRD %%CLACGV %CLACGV
  %%CLACN2 %CLACN2 %%CLACON %CLACON %%CLACP2 %CLACP2 %%CLACPY %CLACPY %%CLACRM
  %CLACRM %%CLACRT %CLACRT %%CLADIV %CLADIV %%CLAED0 %CLAED0 %%CLAED7 %CLAED7
  %%CLAED8 %CLAED8 %%CLAEIN %CLAEIN %%CLAESY %CLAESY %%CLAEV2 %CLAEV2 %%CLAG2Z
  %CLAG2Z %%CLAGS2 %CLAGS2 %%CLAGTM %CLAGTM %%CLAHEF %CLAHEF %%CLAHEF_AA
  %CLAHEF_AA %%CLAHEF_RK %CLAHEF_RK %%CLAHEF_ROOK %CLAHEF_ROOK %%CLAHQR %CLAHQR
  %%CLAHR2 %CLAHR2 %%CLAIC1 %CLAIC1 %%CLALS0 %CLALS0 %%CLALSA %CLALSA %%CLALSD
  %CLALSD %%CLAMSWLQ %CLAMSWLQ %%CLAMTSQR %CLAMTSQR %%CLANGB %CLANGB %%CLANGE
  %CLANGE %%CLANGT %CLANGT %%CLANHB %CLANHB %%CLANHE %CLANHE %%CLANHF %CLANHF
  %%CLANHP %CLANHP %%CLANHS %CLANHS %%CLANHT %CLANHT %%CLANSB %CLANSB %%CLANSP
  %CLANSP))

(CFFI:DEFCFUN ("cbbcsd_" %%CBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (B11D :POINTER)
  (B11E :POINTER)
  (B12D :POINTER)
  (B12E :POINTER)
  (B21D :POINTER)
  (B21E :POINTER)
  (B22D :POINTER)
  (B22E :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CBBCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS M P Q THETA PHI U1 LDU1 U2
                    LDU2 V1T LDV1T V2T LDV2T B11D B11E B12D B12E B21D B21E B22D
                    B22E RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CBBCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B11D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B11E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B12D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B12E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B21D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B21E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B22D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B22E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6 ':INT32) (P-REF7 ':INT32)
                              (Q-REF8 ':INT32) (LDU1-REF12 ':INT32)
                              (LDU2-REF14 ':INT32) (LDV1T-REF16 ':INT32)
                              (LDV2T-REF18 ':INT32) (LRWORK-REF28 ':INT32)
                              (INFO-REF29 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF7 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF8 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF12 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF14 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF16 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF18 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF28 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF29 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF9 THETA) (PHI-REF10 PHI)
                                            (U1-REF11 U1) (U2-REF13 U2)
                                            (V1T-REF15 V1T) (V2T-REF17 V2T)
                                            (B11D-REF19 B11D) (B11E-REF20 B11E)
                                            (B12D-REF21 B12D) (B12E-REF22 B12E)
                                            (B21D-REF23 B21D) (B21E-REF24 B21E)
                                            (B22D-REF25 B22D) (B22E-REF26 B22E)
                                            (RWORK-REF27 RWORK))
      (%%CBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF6 P-REF7 Q-REF8 THETA-REF9
       PHI-REF10 U1-REF11 LDU1-REF12 U2-REF13 LDU2-REF14 V1T-REF15 LDV1T-REF16
       V2T-REF17 LDV2T-REF18 B11D-REF19 B11E-REF20 B12D-REF21 B12E-REF22
       B21D-REF23 B21E-REF24 B22D-REF25 B22E-REF26 RWORK-REF27 LRWORK-REF28
       INFO-REF29))))

(CFFI:DEFCFUN ("cbdsqr_" %%CBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NCVT :POINTER)
  (NRU :POINTER)
  (NCC :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CBDSQR
                   (UPLO N NCVT NRU NCC D E VT LDVT U LDU C LDC RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CBDSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF31 ':INT32) (NCVT-REF32 ':INT32)
                              (NRU-REF33 ':INT32) (NCC-REF34 ':INT32)
                              (LDVT-REF38 ':INT32) (LDU-REF40 ':INT32)
                              (LDC-REF42 ':INT32) (INFO-REF44 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF31 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF32 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF33 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF34 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF38 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF40 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF42 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF44 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF35 D) (E-REF36 E)
                                            (VT-REF37 VT) (U-REF39 U)
                                            (C-REF41 C) (RWORK-REF43 RWORK))
      (%%CBDSQR UPLO N-REF31 NCVT-REF32 NRU-REF33 NCC-REF34 D-REF35 E-REF36
       VT-REF37 LDVT-REF38 U-REF39 LDU-REF40 C-REF41 LDC-REF42 RWORK-REF43
       INFO-REF44))))

(CFFI:DEFCFUN ("cgbbrd_" %%CGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (NCC :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (PT :POINTER)
  (LDPT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBBRD
                   (VECT M N NCC KL KU AB LDAB D E Q LDQ PT LDPT C LDC WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBBRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        PT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDPT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF46 ':INT32) (N-REF47 ':INT32)
                              (NCC-REF48 ':INT32) (KL-REF49 ':INT32)
                              (KU-REF50 ':INT32) (LDAB-REF52 ':INT32)
                              (LDQ-REF56 ':INT32) (LDPT-REF58 ':INT32)
                              (LDC-REF60 ':INT32) (INFO-REF63 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF46 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF47 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF48 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF49 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF50 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF52 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF56 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF58 :INT32) LDPT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF60 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF63 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF51 AB) (D-REF53 D)
                                            (E-REF54 E) (Q-REF55 Q)
                                            (PT-REF57 PT) (C-REF59 C)
                                            (WORK-REF61 WORK)
                                            (RWORK-REF62 RWORK))
      (%%CGBBRD VECT M-REF46 N-REF47 NCC-REF48 KL-REF49 KU-REF50 AB-REF51
       LDAB-REF52 D-REF53 E-REF54 Q-REF55 LDQ-REF56 PT-REF57 LDPT-REF58 C-REF59
       LDC-REF60 WORK-REF61 RWORK-REF62 INFO-REF63))))

(CFFI:DEFCFUN ("cgbcon_" %%CGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBCON
                   (NORM N KL KU AB LDAB IPIV ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF65 ':INT32) (KL-REF66 ':INT32)
                              (KU-REF67 ':INT32) (LDAB-REF69 ':INT32)
                              (ANORM-REF71 ':FLOAT) (RCOND-REF72 ':FLOAT)
                              (INFO-REF75 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF65 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF66 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF67 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF69 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF71 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF72 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF75 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF68 AB) (IPIV-REF70 IPIV)
                                            (WORK-REF73 WORK)
                                            (RWORK-REF74 RWORK))
      (%%CGBCON NORM N-REF65 KL-REF66 KU-REF67 AB-REF68 LDAB-REF69 IPIV-REF70
       ANORM-REF71 RCOND-REF72 WORK-REF73 RWORK-REF74 INFO-REF75))))

(CFFI:DEFCFUN ("cgbequ_" %%CGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBEQU (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF76 ':INT32) (N-REF77 ':INT32)
                              (KL-REF78 ':INT32) (KU-REF79 ':INT32)
                              (LDAB-REF81 ':INT32) (ROWCND-REF84 ':FLOAT)
                              (COLCND-REF85 ':FLOAT) (AMAX-REF86 ':FLOAT)
                              (INFO-REF87 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF76 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF77 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF78 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF79 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF81 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF84 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF85 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF86 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF87 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF80 AB) (R-REF82 R)
                                            (C-REF83 C))
      (%%CGBEQU M-REF76 N-REF77 KL-REF78 KU-REF79 AB-REF80 LDAB-REF81 R-REF82
       C-REF83 ROWCND-REF84 COLCND-REF85 AMAX-REF86 INFO-REF87))))

(CFFI:DEFCFUN ("cgbequb_" %%CGBEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBEQUB (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF88 ':INT32) (N-REF89 ':INT32)
                              (KL-REF90 ':INT32) (KU-REF91 ':INT32)
                              (LDAB-REF93 ':INT32) (ROWCND-REF96 ':FLOAT)
                              (COLCND-REF97 ':FLOAT) (AMAX-REF98 ':FLOAT)
                              (INFO-REF99 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF88 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF89 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF90 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF91 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF93 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF96 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF97 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF98 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF99 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF92 AB) (R-REF94 R)
                                            (C-REF95 C))
      (%%CGBEQUB M-REF88 N-REF89 KL-REF90 KU-REF91 AB-REF92 LDAB-REF93 R-REF94
       C-REF95 ROWCND-REF96 COLCND-REF97 AMAX-REF98 INFO-REF99))))

(CFFI:DEFCFUN ("cgbrfs_" %%CGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBRFS
                   (TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV B LDB X LDX FERR
                    BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF101 ':INT32) (KL-REF102 ':INT32)
                              (KU-REF103 ':INT32) (NRHS-REF104 ':INT32)
                              (LDAB-REF106 ':INT32) (LDAFB-REF108 ':INT32)
                              (LDB-REF111 ':INT32) (LDX-REF113 ':INT32)
                              (INFO-REF118 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF101 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF102 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF103 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF104 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF106 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF108 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF111 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF113 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF118 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF105 AB) (AFB-REF107 AFB)
                                            (IPIV-REF109 IPIV) (B-REF110 B)
                                            (X-REF112 X) (FERR-REF114 FERR)
                                            (BERR-REF115 BERR)
                                            (WORK-REF116 WORK)
                                            (RWORK-REF117 RWORK))
      (%%CGBRFS TRANS N-REF101 KL-REF102 KU-REF103 NRHS-REF104 AB-REF105
       LDAB-REF106 AFB-REF107 LDAFB-REF108 IPIV-REF109 B-REF110 LDB-REF111
       X-REF112 LDX-REF113 FERR-REF114 BERR-REF115 WORK-REF116 RWORK-REF117
       INFO-REF118))))

(CFFI:DEFCFUN ("cgbrfsx_" %%CGBRFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBRFSX
                   (TRANS EQUED N KL KU NRHS AB LDAB AFB LDAFB IPIV R C B LDB X
                    LDX RCOND BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF121 ':INT32) (KL-REF122 ':INT32)
                              (KU-REF123 ':INT32) (NRHS-REF124 ':INT32)
                              (LDAB-REF126 ':INT32) (LDAFB-REF128 ':INT32)
                              (LDB-REF133 ':INT32) (LDX-REF135 ':INT32)
                              (RCOND-REF136 ':FLOAT)
                              (N_ERR_BNDS-REF138 ':INT32)
                              (NPARAMS-REF141 ':INT32) (INFO-REF145 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF121 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF122 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF123 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF124 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF126 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF128 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF133 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF135 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF136 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF138 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF141 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF145 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF125 AB) (AFB-REF127 AFB)
                                            (IPIV-REF129 IPIV) (R-REF130 R)
                                            (C-REF131 C) (B-REF132 B)
                                            (X-REF134 X) (BERR-REF137 BERR)
                                            (ERR_BNDS_NORM-REF139
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF140
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF142 PARAMS)
                                            (WORK-REF143 WORK)
                                            (RWORK-REF144 RWORK))
      (%%CGBRFSX TRANS EQUED N-REF121 KL-REF122 KU-REF123 NRHS-REF124 AB-REF125
       LDAB-REF126 AFB-REF127 LDAFB-REF128 IPIV-REF129 R-REF130 C-REF131
       B-REF132 LDB-REF133 X-REF134 LDX-REF135 RCOND-REF136 BERR-REF137
       N_ERR_BNDS-REF138 ERR_BNDS_NORM-REF139 ERR_BNDS_COMP-REF140
       NPARAMS-REF141 PARAMS-REF142 WORK-REF143 RWORK-REF144 INFO-REF145))))

(CFFI:DEFCFUN ("cgbsv_" %%CGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBSV (N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF146 ':INT32) (KL-REF147 ':INT32)
                              (KU-REF148 ':INT32) (NRHS-REF149 ':INT32)
                              (LDAB-REF151 ':INT32) (LDB-REF154 ':INT32)
                              (INFO-REF155 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF146 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF147 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF148 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF149 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF151 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF154 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF155 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF150 AB) (IPIV-REF152 IPIV)
                                            (B-REF153 B))
      (%%CGBSV N-REF146 KL-REF147 KU-REF148 NRHS-REF149 AB-REF150 LDAB-REF151
       IPIV-REF152 B-REF153 LDB-REF154 INFO-REF155))))

(CFFI:DEFCFUN ("cgbsvx_" %%CGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBSVX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF158 ':INT32) (KL-REF159 ':INT32)
                              (KU-REF160 ':INT32) (NRHS-REF161 ':INT32)
                              (LDAB-REF163 ':INT32) (LDAFB-REF165 ':INT32)
                              (LDB-REF171 ':INT32) (LDX-REF173 ':INT32)
                              (RCOND-REF174 ':FLOAT) (INFO-REF179 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF158 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF159 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF160 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF161 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF163 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF165 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF171 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF173 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF174 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF179 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF162 AB) (AFB-REF164 AFB)
                                            (IPIV-REF166 IPIV) (R-REF168 R)
                                            (C-REF169 C) (B-REF170 B)
                                            (X-REF172 X) (FERR-REF175 FERR)
                                            (BERR-REF176 BERR)
                                            (WORK-REF177 WORK)
                                            (RWORK-REF178 RWORK))
      (%%CGBSVX FACT TRANS N-REF158 KL-REF159 KU-REF160 NRHS-REF161 AB-REF162
       LDAB-REF163 AFB-REF164 LDAFB-REF165 IPIV-REF166 EQUED R-REF168 C-REF169
       B-REF170 LDB-REF171 X-REF172 LDX-REF173 RCOND-REF174 FERR-REF175
       BERR-REF176 WORK-REF177 RWORK-REF178 INFO-REF179))))

(CFFI:DEFCFUN ("cgbsvxx_" %%CGBSVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBSVXX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM
                    ERR_BNDS_COMP NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF182 ':INT32) (KL-REF183 ':INT32)
                              (KU-REF184 ':INT32) (NRHS-REF185 ':INT32)
                              (LDAB-REF187 ':INT32) (LDAFB-REF189 ':INT32)
                              (LDB-REF195 ':INT32) (LDX-REF197 ':INT32)
                              (RCOND-REF198 ':FLOAT) (RPVGRW-REF199 ':FLOAT)
                              (N_ERR_BNDS-REF201 ':INT32)
                              (NPARAMS-REF204 ':INT32) (INFO-REF208 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF182 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF183 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF184 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF185 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF187 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF189 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF195 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF197 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF198 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF199 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF201 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF204 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF208 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF186 AB) (AFB-REF188 AFB)
                                            (IPIV-REF190 IPIV) (R-REF192 R)
                                            (C-REF193 C) (B-REF194 B)
                                            (X-REF196 X) (BERR-REF200 BERR)
                                            (ERR_BNDS_NORM-REF202
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF203
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF205 PARAMS)
                                            (WORK-REF206 WORK)
                                            (RWORK-REF207 RWORK))
      (%%CGBSVXX FACT TRANS N-REF182 KL-REF183 KU-REF184 NRHS-REF185 AB-REF186
       LDAB-REF187 AFB-REF188 LDAFB-REF189 IPIV-REF190 EQUED R-REF192 C-REF193
       B-REF194 LDB-REF195 X-REF196 LDX-REF197 RCOND-REF198 RPVGRW-REF199
       BERR-REF200 N_ERR_BNDS-REF201 ERR_BNDS_NORM-REF202 ERR_BNDS_COMP-REF203
       NPARAMS-REF204 PARAMS-REF205 WORK-REF206 RWORK-REF207 INFO-REF208))))

(CFFI:DEFCFUN ("cgbtf2_" %%CGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBTF2 (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBTF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF209 ':INT32) (N-REF210 ':INT32)
                              (KL-REF211 ':INT32) (KU-REF212 ':INT32)
                              (LDAB-REF214 ':INT32) (INFO-REF216 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF209 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF210 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF211 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF212 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF214 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF216 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF213 AB) (IPIV-REF215 IPIV))
      (%%CGBTF2 M-REF209 N-REF210 KL-REF211 KU-REF212 AB-REF213 LDAB-REF214
       IPIV-REF215 INFO-REF216))))

(CFFI:DEFCFUN ("cgbtrf_" %%CGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBTRF (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF217 ':INT32) (N-REF218 ':INT32)
                              (KL-REF219 ':INT32) (KU-REF220 ':INT32)
                              (LDAB-REF222 ':INT32) (INFO-REF224 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF217 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF218 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF219 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF220 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF222 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF224 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF221 AB) (IPIV-REF223 IPIV))
      (%%CGBTRF M-REF217 N-REF218 KL-REF219 KU-REF220 AB-REF221 LDAB-REF222
       IPIV-REF223 INFO-REF224))))

(CFFI:DEFCFUN ("cgbtrs_" %%CGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGBTRS (TRANS N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF226 ':INT32) (KL-REF227 ':INT32)
                              (KU-REF228 ':INT32) (NRHS-REF229 ':INT32)
                              (LDAB-REF231 ':INT32) (LDB-REF234 ':INT32)
                              (INFO-REF235 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF226 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF227 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF228 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF229 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF231 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF234 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF235 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF230 AB) (IPIV-REF232 IPIV)
                                            (B-REF233 B))
      (%%CGBTRS TRANS N-REF226 KL-REF227 KU-REF228 NRHS-REF229 AB-REF230
       LDAB-REF231 IPIV-REF232 B-REF233 LDB-REF234 INFO-REF235))))

(CFFI:DEFCFUN ("cgebak_" %%CGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEBAK (JOB SIDE N ILO IHI SCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF238 ':INT32) (ILO-REF239 ':INT32)
                              (IHI-REF240 ':INT32) (M-REF242 ':INT32)
                              (LDV-REF244 ':INT32) (INFO-REF245 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF238 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF239 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF240 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF242 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF244 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF245 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF241 SCALE) (V-REF243 V))
      (%%CGEBAK JOB SIDE N-REF238 ILO-REF239 IHI-REF240 SCALE-REF241 M-REF242
       V-REF243 LDV-REF244 INFO-REF245))))

(CFFI:DEFCFUN ("cgebal_" %%CGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEBAL (JOB N A LDA ILO IHI SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF247 ':INT32) (LDA-REF249 ':INT32)
                              (ILO-REF250 ':INT32) (IHI-REF251 ':INT32)
                              (INFO-REF253 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF247 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF249 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF250 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF251 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF253 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF248 A) (SCALE-REF252 SCALE))
      (%%CGEBAL JOB N-REF247 A-REF248 LDA-REF249 ILO-REF250 IHI-REF251
       SCALE-REF252 INFO-REF253))))

(CFFI:DEFCFUN ("cgebd2_" %%CGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEBD2 (M N A LDA D E TAUQ TAUP WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEBD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF254 ':INT32) (N-REF255 ':INT32)
                              (LDA-REF257 ':INT32) (INFO-REF263 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF254 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF255 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF257 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF263 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF256 A) (D-REF258 D)
                                            (E-REF259 E) (TAUQ-REF260 TAUQ)
                                            (TAUP-REF261 TAUP)
                                            (WORK-REF262 WORK))
      (%%CGEBD2 M-REF254 N-REF255 A-REF256 LDA-REF257 D-REF258 E-REF259
       TAUQ-REF260 TAUP-REF261 WORK-REF262 INFO-REF263))))

(CFFI:DEFCFUN ("cgebrd_" %%CGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEBRD (M N A LDA D E TAUQ TAUP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEBRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF264 ':INT32) (N-REF265 ':INT32)
                              (LDA-REF267 ':INT32) (LWORK-REF273 ':INT32)
                              (INFO-REF274 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF264 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF265 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF267 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF273 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF274 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF266 A) (D-REF268 D)
                                            (E-REF269 E) (TAUQ-REF270 TAUQ)
                                            (TAUP-REF271 TAUP)
                                            (WORK-REF272 WORK))
      (%%CGEBRD M-REF264 N-REF265 A-REF266 LDA-REF267 D-REF268 E-REF269
       TAUQ-REF270 TAUP-REF271 WORK-REF272 LWORK-REF273 INFO-REF274))))

(CFFI:DEFCFUN ("cgecon_" %%CGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGECON (NORM N A LDA ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGECON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF276 ':INT32) (LDA-REF278 ':INT32)
                              (ANORM-REF279 ':FLOAT) (RCOND-REF280 ':FLOAT)
                              (INFO-REF283 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF276 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF278 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF279 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF280 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF283 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF277 A) (WORK-REF281 WORK)
                                            (RWORK-REF282 RWORK))
      (%%CGECON NORM N-REF276 A-REF277 LDA-REF278 ANORM-REF279 RCOND-REF280
       WORK-REF281 RWORK-REF282 INFO-REF283))))

(CFFI:DEFCFUN ("cgeequ_" %%CGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEEQU (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF284 ':INT32) (N-REF285 ':INT32)
                              (LDA-REF287 ':INT32) (ROWCND-REF290 ':FLOAT)
                              (COLCND-REF291 ':FLOAT) (AMAX-REF292 ':FLOAT)
                              (INFO-REF293 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF284 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF285 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF287 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF290 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF291 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF292 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF293 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF286 A) (R-REF288 R)
                                            (C-REF289 C))
      (%%CGEEQU M-REF284 N-REF285 A-REF286 LDA-REF287 R-REF288 C-REF289
       ROWCND-REF290 COLCND-REF291 AMAX-REF292 INFO-REF293))))

(CFFI:DEFCFUN ("cgeequb_" %%CGEEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEEQUB (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF294 ':INT32) (N-REF295 ':INT32)
                              (LDA-REF297 ':INT32) (ROWCND-REF300 ':FLOAT)
                              (COLCND-REF301 ':FLOAT) (AMAX-REF302 ':FLOAT)
                              (INFO-REF303 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF294 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF295 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF297 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF300 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF301 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF302 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF303 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF296 A) (R-REF298 R)
                                            (C-REF299 C))
      (%%CGEEQUB M-REF294 N-REF295 A-REF296 LDA-REF297 R-REF298 C-REF299
       ROWCND-REF300 COLCND-REF301 AMAX-REF302 INFO-REF303))))

(CFFI:DEFCFUN ("cgees_" %%CGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (W :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEES
                   (JOBVS SORT SELECT N A LDA SDIM W VS LDVS WORK LWORK RWORK
                    BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF306 ':INT32) (N-REF307 ':INT32)
                              (LDA-REF309 ':INT32) (SDIM-REF310 ':INT32)
                              (LDVS-REF313 ':INT32) (LWORK-REF315 ':INT32)
                              (INFO-REF318 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF306 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF307 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF309 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF310 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF313 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF315 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF318 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF308 A) (W-REF311 W)
                                            (VS-REF312 VS) (WORK-REF314 WORK)
                                            (RWORK-REF316 RWORK)
                                            (BWORK-REF317 BWORK))
      (%%CGEES JOBVS SORT SELECT-REF306 N-REF307 A-REF308 LDA-REF309
       SDIM-REF310 W-REF311 VS-REF312 LDVS-REF313 WORK-REF314 LWORK-REF315
       RWORK-REF316 BWORK-REF317 INFO-REF318))))

(CFFI:DEFCFUN ("cgeesx_" %%CGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (W :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEESX
                   (JOBVS SORT SELECT SENSE N A LDA SDIM W VS LDVS RCONDE
                    RCONDV WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCONDE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF321 ':INT32) (N-REF323 ':INT32)
                              (LDA-REF325 ':INT32) (SDIM-REF326 ':INT32)
                              (LDVS-REF329 ':INT32) (RCONDE-REF330 ':FLOAT)
                              (RCONDV-REF331 ':FLOAT) (LWORK-REF333 ':INT32)
                              (INFO-REF336 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF321 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF323 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF325 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF326 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF329 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF330 :FLOAT) RCONDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF331 :FLOAT) RCONDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF333 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF336 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF324 A) (W-REF327 W)
                                            (VS-REF328 VS) (WORK-REF332 WORK)
                                            (RWORK-REF334 RWORK)
                                            (BWORK-REF335 BWORK))
      (%%CGEESX JOBVS SORT SELECT-REF321 SENSE N-REF323 A-REF324 LDA-REF325
       SDIM-REF326 W-REF327 VS-REF328 LDVS-REF329 RCONDE-REF330 RCONDV-REF331
       WORK-REF332 LWORK-REF333 RWORK-REF334 BWORK-REF335 INFO-REF336))))

(CFFI:DEFCFUN ("cgeev_" %%CGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEEV
                   (JOBVL JOBVR N A LDA W VL LDVL VR LDVR WORK LWORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF339 ':INT32) (LDA-REF341 ':INT32)
                              (LDVL-REF344 ':INT32) (LDVR-REF346 ':INT32)
                              (LWORK-REF348 ':INT32) (INFO-REF350 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF339 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF341 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF344 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF346 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF348 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF350 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF340 A) (W-REF342 W)
                                            (VL-REF343 VL) (VR-REF345 VR)
                                            (WORK-REF347 WORK)
                                            (RWORK-REF349 RWORK))
      (%%CGEEV JOBVL JOBVR N-REF339 A-REF340 LDA-REF341 W-REF342 VL-REF343
       LDVL-REF344 VR-REF345 LDVR-REF346 WORK-REF347 LWORK-REF348 RWORK-REF349
       INFO-REF350))))

(CFFI:DEFCFUN ("cgeevx_" %%CGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (ABNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA W VL LDVL VR LDVR ILO IHI
                    SCALE ABNRM RCONDE RCONDV WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF355 ':INT32) (LDA-REF357 ':INT32)
                              (LDVL-REF360 ':INT32) (LDVR-REF362 ':INT32)
                              (ILO-REF363 ':INT32) (IHI-REF364 ':INT32)
                              (ABNRM-REF366 ':FLOAT) (LWORK-REF370 ':INT32)
                              (INFO-REF372 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF355 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF357 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF360 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF362 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF363 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF364 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF366 :FLOAT) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF370 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF372 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF356 A) (W-REF358 W)
                                            (VL-REF359 VL) (VR-REF361 VR)
                                            (SCALE-REF365 SCALE)
                                            (RCONDE-REF367 RCONDE)
                                            (RCONDV-REF368 RCONDV)
                                            (WORK-REF369 WORK)
                                            (RWORK-REF371 RWORK))
      (%%CGEEVX BALANC JOBVL JOBVR SENSE N-REF355 A-REF356 LDA-REF357 W-REF358
       VL-REF359 LDVL-REF360 VR-REF361 LDVR-REF362 ILO-REF363 IHI-REF364
       SCALE-REF365 ABNRM-REF366 RCONDE-REF367 RCONDV-REF368 WORK-REF369
       LWORK-REF370 RWORK-REF371 INFO-REF372))))

(CFFI:DEFCFUN ("cgehd2_" %%CGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEHD2 (N ILO IHI A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEHD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF373 ':INT32) (ILO-REF374 ':INT32)
                              (IHI-REF375 ':INT32) (LDA-REF377 ':INT32)
                              (INFO-REF380 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF373 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF374 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF375 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF377 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF380 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF376 A) (TAU-REF378 TAU)
                                            (WORK-REF379 WORK))
      (%%CGEHD2 N-REF373 ILO-REF374 IHI-REF375 A-REF376 LDA-REF377 TAU-REF378
       WORK-REF379 INFO-REF380))))

(CFFI:DEFCFUN ("cgehrd_" %%CGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEHRD (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEHRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF381 ':INT32) (ILO-REF382 ':INT32)
                              (IHI-REF383 ':INT32) (LDA-REF385 ':INT32)
                              (LWORK-REF388 ':INT32) (INFO-REF389 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF381 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF382 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF383 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF385 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF388 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF389 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF384 A) (TAU-REF386 TAU)
                                            (WORK-REF387 WORK))
      (%%CGEHRD N-REF381 ILO-REF382 IHI-REF383 A-REF384 LDA-REF385 TAU-REF386
       WORK-REF387 LWORK-REF388 INFO-REF389))))

(CFFI:DEFCFUN ("cgejsv_" %%CGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBR :STRING)
  (JOBT :STRING)
  (JOBP :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (CWORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEJSV
                   (JOBA JOBU JOBV JOBR JOBT JOBP M N A LDA SVA U LDU V LDV
                    CWORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEJSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF396 ':INT32) (N-REF397 ':INT32)
                              (LDA-REF399 ':INT32) (LDU-REF402 ':INT32)
                              (LDV-REF404 ':INT32) (LWORK-REF406 ':INT32)
                              (LRWORK-REF408 ':INT32) (INFO-REF410 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF396 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF397 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF399 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF402 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF404 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF406 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF408 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF410 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF398 A) (SVA-REF400 SVA)
                                            (U-REF401 U) (V-REF403 V)
                                            (CWORK-REF405 CWORK)
                                            (RWORK-REF407 RWORK)
                                            (IWORK-REF409 IWORK))
      (%%CGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF396 N-REF397 A-REF398
       LDA-REF399 SVA-REF400 U-REF401 LDU-REF402 V-REF403 LDV-REF404
       CWORK-REF405 LWORK-REF406 RWORK-REF407 LRWORK-REF408 IWORK-REF409
       INFO-REF410))))

(CFFI:DEFCFUN ("cgelq_" %%CGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELQ (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF411 ':INT32) (N-REF412 ':INT32)
                              (LDA-REF414 ':INT32) (TSIZE-REF416 ':INT32)
                              (LWORK-REF418 ':INT32) (INFO-REF419 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF411 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF412 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF414 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF416 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF418 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF419 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF413 A) (T-REF415 T)
                                            (WORK-REF417 WORK))
      (%%CGELQ M-REF411 N-REF412 A-REF413 LDA-REF414 T-REF415 TSIZE-REF416
       WORK-REF417 LWORK-REF418 INFO-REF419))))

(CFFI:DEFCFUN ("cgelq2_" %%CGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF420 ':INT32) (N-REF421 ':INT32)
                              (LDA-REF423 ':INT32) (INFO-REF426 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF420 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF421 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF423 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF426 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF422 A) (TAU-REF424 TAU)
                                            (WORK-REF425 WORK))
      (%%CGELQ2 M-REF420 N-REF421 A-REF422 LDA-REF423 TAU-REF424 WORK-REF425
       INFO-REF426))))

(CFFI:DEFCFUN ("cgelqf_" %%CGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF427 ':INT32) (N-REF428 ':INT32)
                              (LDA-REF430 ':INT32) (LWORK-REF433 ':INT32)
                              (INFO-REF434 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF427 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF428 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF430 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF433 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF434 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF429 A) (TAU-REF431 TAU)
                                            (WORK-REF432 WORK))
      (%%CGELQF M-REF427 N-REF428 A-REF429 LDA-REF430 TAU-REF431 WORK-REF432
       LWORK-REF433 INFO-REF434))))

(CFFI:DEFCFUN ("cgelqt_" %%CGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELQT (M N MB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF435 ':INT32) (N-REF436 ':INT32)
                              (MB-REF437 ':INT32) (LDA-REF439 ':INT32)
                              (LDT-REF441 ':INT32) (INFO-REF443 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF435 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF436 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF437 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF439 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF441 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF443 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF438 A) (T-REF440 T)
                                            (WORK-REF442 WORK))
      (%%CGELQT M-REF435 N-REF436 MB-REF437 A-REF438 LDA-REF439 T-REF440
       LDT-REF441 WORK-REF442 INFO-REF443))))

(CFFI:DEFCFUN ("cgelqt3_" %%CGELQT3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELQT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF444 ':INT32) (N-REF445 ':INT32)
                              (LDA-REF447 ':INT32) (LDT-REF449 ':INT32)
                              (INFO-REF450 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF444 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF445 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF447 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF449 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF450 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF446 A) (T-REF448 T))
      (%%CGELQT3 M-REF444 N-REF445 A-REF446 LDA-REF447 T-REF448 LDT-REF449
       INFO-REF450))))

(CFFI:DEFCFUN ("cgels_" %%CGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF452 ':INT32) (N-REF453 ':INT32)
                              (NRHS-REF454 ':INT32) (LDA-REF456 ':INT32)
                              (LDB-REF458 ':INT32) (LWORK-REF460 ':INT32)
                              (INFO-REF461 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF452 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF453 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF454 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF456 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF458 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF460 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF461 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF455 A) (B-REF457 B)
                                            (WORK-REF459 WORK))
      (%%CGELS TRANS M-REF452 N-REF453 NRHS-REF454 A-REF455 LDA-REF456 B-REF457
       LDB-REF458 WORK-REF459 LWORK-REF460 INFO-REF461))))

(CFFI:DEFCFUN ("cgelsd_" %%CGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELSD
                   (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELSD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF462 ':INT32) (N-REF463 ':INT32)
                              (NRHS-REF464 ':INT32) (LDA-REF466 ':INT32)
                              (LDB-REF468 ':INT32) (RCOND-REF470 ':FLOAT)
                              (RANK-REF471 ':INT32) (LWORK-REF473 ':INT32)
                              (INFO-REF476 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF462 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF463 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF464 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF466 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF468 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF470 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF471 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF473 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF476 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF465 A) (B-REF467 B)
                                            (S-REF469 S) (WORK-REF472 WORK)
                                            (RWORK-REF474 RWORK)
                                            (IWORK-REF475 IWORK))
      (%%CGELSD M-REF462 N-REF463 NRHS-REF464 A-REF465 LDA-REF466 B-REF467
       LDB-REF468 S-REF469 RCOND-REF470 RANK-REF471 WORK-REF472 LWORK-REF473
       RWORK-REF474 IWORK-REF475 INFO-REF476))))

(CFFI:DEFCFUN ("cgelss_" %%CGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELSS
                   (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELSS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF477 ':INT32) (N-REF478 ':INT32)
                              (NRHS-REF479 ':INT32) (LDA-REF481 ':INT32)
                              (LDB-REF483 ':INT32) (RCOND-REF485 ':FLOAT)
                              (RANK-REF486 ':INT32) (LWORK-REF488 ':INT32)
                              (INFO-REF490 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF477 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF478 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF479 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF481 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF483 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF485 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF486 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF488 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF490 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF480 A) (B-REF482 B)
                                            (S-REF484 S) (WORK-REF487 WORK)
                                            (RWORK-REF489 RWORK))
      (%%CGELSS M-REF477 N-REF478 NRHS-REF479 A-REF480 LDA-REF481 B-REF482
       LDB-REF483 S-REF484 RCOND-REF485 RANK-REF486 WORK-REF487 LWORK-REF488
       RWORK-REF489 INFO-REF490))))

(CFFI:DEFCFUN ("cgelsy_" %%CGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (JPVT :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGELSY
                   (M N NRHS A LDA B LDB JPVT RCOND RANK WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELSY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF491 ':INT32) (N-REF492 ':INT32)
                              (NRHS-REF493 ':INT32) (LDA-REF495 ':INT32)
                              (LDB-REF497 ':INT32) (RCOND-REF499 ':FLOAT)
                              (RANK-REF500 ':INT32) (LWORK-REF502 ':INT32)
                              (INFO-REF504 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF491 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF492 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF493 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF495 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF497 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF499 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF500 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF502 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF504 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF494 A) (B-REF496 B)
                                            (JPVT-REF498 JPVT)
                                            (WORK-REF501 WORK)
                                            (RWORK-REF503 RWORK))
      (%%CGELSY M-REF491 N-REF492 NRHS-REF493 A-REF494 LDA-REF495 B-REF496
       LDB-REF497 JPVT-REF498 RCOND-REF499 RANK-REF500 WORK-REF501 LWORK-REF502
       RWORK-REF503 INFO-REF504))))

(CFFI:DEFCFUN ("cgemlq_" %%CGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEMLQ
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF507 ':INT32) (N-REF508 ':INT32)
                              (K-REF509 ':INT32) (LDA-REF511 ':INT32)
                              (TSIZE-REF513 ':INT32) (LDC-REF515 ':INT32)
                              (LWORK-REF517 ':INT32) (INFO-REF518 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF507 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF508 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF509 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF511 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF513 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF515 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF517 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF518 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF510 A) (T-REF512 T)
                                            (C-REF514 C) (WORK-REF516 WORK))
      (%%CGEMLQ SIDE TRANS M-REF507 N-REF508 K-REF509 A-REF510 LDA-REF511
       T-REF512 TSIZE-REF513 C-REF514 LDC-REF515 WORK-REF516 LWORK-REF517
       INFO-REF518))))

(CFFI:DEFCFUN ("cgemlqt_" %%CGEMLQT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEMLQT (SIDE TRANS M N K MB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF521 ':INT32) (N-REF522 ':INT32)
                              (K-REF523 ':INT32) (MB-REF524 ':INT32)
                              (LDV-REF526 ':INT32) (LDT-REF528 ':INT32)
                              (LDC-REF530 ':INT32) (INFO-REF532 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF521 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF522 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF523 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF524 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF526 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF528 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF530 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF532 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF525 V) (T-REF527 T)
                                            (C-REF529 C) (WORK-REF531 WORK))
      (%%CGEMLQT SIDE TRANS M-REF521 N-REF522 K-REF523 MB-REF524 V-REF525
       LDV-REF526 T-REF527 LDT-REF528 C-REF529 LDC-REF530 WORK-REF531
       INFO-REF532))))

(CFFI:DEFCFUN ("cgemqr_" %%CGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEMQR
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF535 ':INT32) (N-REF536 ':INT32)
                              (K-REF537 ':INT32) (LDA-REF539 ':INT32)
                              (TSIZE-REF541 ':INT32) (LDC-REF543 ':INT32)
                              (LWORK-REF545 ':INT32) (INFO-REF546 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF535 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF536 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF537 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF539 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF541 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF543 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF545 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF546 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF538 A) (T-REF540 T)
                                            (C-REF542 C) (WORK-REF544 WORK))
      (%%CGEMQR SIDE TRANS M-REF535 N-REF536 K-REF537 A-REF538 LDA-REF539
       T-REF540 TSIZE-REF541 C-REF542 LDC-REF543 WORK-REF544 LWORK-REF545
       INFO-REF546))))

(CFFI:DEFCFUN ("cgemqrt_" %%CGEMQRT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEMQRT (SIDE TRANS M N K NB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF549 ':INT32) (N-REF550 ':INT32)
                              (K-REF551 ':INT32) (NB-REF552 ':INT32)
                              (LDV-REF554 ':INT32) (LDT-REF556 ':INT32)
                              (LDC-REF558 ':INT32) (INFO-REF560 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF549 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF550 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF551 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF552 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF554 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF556 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF558 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF560 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF553 V) (T-REF555 T)
                                            (C-REF557 C) (WORK-REF559 WORK))
      (%%CGEMQRT SIDE TRANS M-REF549 N-REF550 K-REF551 NB-REF552 V-REF553
       LDV-REF554 T-REF555 LDT-REF556 C-REF557 LDC-REF558 WORK-REF559
       INFO-REF560))))

(CFFI:DEFCFUN ("cgeql2_" %%CGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQL2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF561 ':INT32) (N-REF562 ':INT32)
                              (LDA-REF564 ':INT32) (INFO-REF567 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF561 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF562 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF564 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF567 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF563 A) (TAU-REF565 TAU)
                                            (WORK-REF566 WORK))
      (%%CGEQL2 M-REF561 N-REF562 A-REF563 LDA-REF564 TAU-REF565 WORK-REF566
       INFO-REF567))))

(CFFI:DEFCFUN ("cgeqlf_" %%CGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQLF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQLF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF568 ':INT32) (N-REF569 ':INT32)
                              (LDA-REF571 ':INT32) (LWORK-REF574 ':INT32)
                              (INFO-REF575 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF568 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF569 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF571 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF574 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF575 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF570 A) (TAU-REF572 TAU)
                                            (WORK-REF573 WORK))
      (%%CGEQLF M-REF568 N-REF569 A-REF570 LDA-REF571 TAU-REF572 WORK-REF573
       LWORK-REF574 INFO-REF575))))

(CFFI:DEFCFUN ("cgeqp3_" %%CGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQP3 (M N A LDA JPVT TAU WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQP3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF576 ':INT32) (N-REF577 ':INT32)
                              (LDA-REF579 ':INT32) (LWORK-REF583 ':INT32)
                              (INFO-REF585 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF576 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF577 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF579 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF583 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF585 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF578 A) (JPVT-REF580 JPVT)
                                            (TAU-REF581 TAU) (WORK-REF582 WORK)
                                            (RWORK-REF584 RWORK))
      (%%CGEQP3 M-REF576 N-REF577 A-REF578 LDA-REF579 JPVT-REF580 TAU-REF581
       WORK-REF582 LWORK-REF583 RWORK-REF584 INFO-REF585))))

(CFFI:DEFCFUN ("cgeqr_" %%CGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQR (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF586 ':INT32) (N-REF587 ':INT32)
                              (LDA-REF589 ':INT32) (TSIZE-REF591 ':INT32)
                              (LWORK-REF593 ':INT32) (INFO-REF594 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF586 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF587 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF589 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF591 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF593 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF594 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF588 A) (T-REF590 T)
                                            (WORK-REF592 WORK))
      (%%CGEQR M-REF586 N-REF587 A-REF588 LDA-REF589 T-REF590 TSIZE-REF591
       WORK-REF592 LWORK-REF593 INFO-REF594))))

(CFFI:DEFCFUN ("cgeqr2_" %%CGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQR2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF595 ':INT32) (N-REF596 ':INT32)
                              (LDA-REF598 ':INT32) (INFO-REF601 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF595 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF596 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF598 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF601 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF597 A) (TAU-REF599 TAU)
                                            (WORK-REF600 WORK))
      (%%CGEQR2 M-REF595 N-REF596 A-REF597 LDA-REF598 TAU-REF599 WORK-REF600
       INFO-REF601))))

(CFFI:DEFCFUN ("cgeqr2p_" %%CGEQR2P :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQR2P (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQR2P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF602 ':INT32) (N-REF603 ':INT32)
                              (LDA-REF605 ':INT32) (INFO-REF608 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF602 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF603 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF605 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF608 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF604 A) (TAU-REF606 TAU)
                                            (WORK-REF607 WORK))
      (%%CGEQR2P M-REF602 N-REF603 A-REF604 LDA-REF605 TAU-REF606 WORK-REF607
       INFO-REF608))))

(CFFI:DEFCFUN ("cgeqrf_" %%CGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQRF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF609 ':INT32) (N-REF610 ':INT32)
                              (LDA-REF612 ':INT32) (LWORK-REF615 ':INT32)
                              (INFO-REF616 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF609 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF610 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF612 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF615 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF616 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF611 A) (TAU-REF613 TAU)
                                            (WORK-REF614 WORK))
      (%%CGEQRF M-REF609 N-REF610 A-REF611 LDA-REF612 TAU-REF613 WORK-REF614
       LWORK-REF615 INFO-REF616))))

(CFFI:DEFCFUN ("cgeqrfp_" %%CGEQRFP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQRFP (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRFP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF617 ':INT32) (N-REF618 ':INT32)
                              (LDA-REF620 ':INT32) (LWORK-REF623 ':INT32)
                              (INFO-REF624 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF617 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF618 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF620 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF623 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF624 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF619 A) (TAU-REF621 TAU)
                                            (WORK-REF622 WORK))
      (%%CGEQRFP M-REF617 N-REF618 A-REF619 LDA-REF620 TAU-REF621 WORK-REF622
       LWORK-REF623 INFO-REF624))))

(CFFI:DEFCFUN ("cgeqrt_" %%CGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQRT (M N NB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF625 ':INT32) (N-REF626 ':INT32)
                              (NB-REF627 ':INT32) (LDA-REF629 ':INT32)
                              (LDT-REF631 ':INT32) (INFO-REF633 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF625 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF626 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF627 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF629 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF631 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF633 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF628 A) (T-REF630 T)
                                            (WORK-REF632 WORK))
      (%%CGEQRT M-REF625 N-REF626 NB-REF627 A-REF628 LDA-REF629 T-REF630
       LDT-REF631 WORK-REF632 INFO-REF633))))

(CFFI:DEFCFUN ("cgeqrt2_" %%CGEQRT2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQRT2 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF634 ':INT32) (N-REF635 ':INT32)
                              (LDA-REF637 ':INT32) (LDT-REF639 ':INT32)
                              (INFO-REF640 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF634 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF635 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF637 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF639 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF640 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF636 A) (T-REF638 T))
      (%%CGEQRT2 M-REF634 N-REF635 A-REF636 LDA-REF637 T-REF638 LDT-REF639
       INFO-REF640))))

(CFFI:DEFCFUN ("cgeqrt3_" %%CGEQRT3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGEQRT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF641 ':INT32) (N-REF642 ':INT32)
                              (LDA-REF644 ':INT32) (LDT-REF646 ':INT32)
                              (INFO-REF647 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF641 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF642 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF644 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF646 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF647 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF643 A) (T-REF645 T))
      (%%CGEQRT3 M-REF641 N-REF642 A-REF643 LDA-REF644 T-REF645 LDT-REF646
       INFO-REF647))))

(CFFI:DEFCFUN ("cgerfs_" %%CGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGERFS
                   (TRANS N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF649 ':INT32) (NRHS-REF650 ':INT32)
                              (LDA-REF652 ':INT32) (LDAF-REF654 ':INT32)
                              (LDB-REF657 ':INT32) (LDX-REF659 ':INT32)
                              (INFO-REF664 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF649 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF650 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF652 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF654 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF657 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF659 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF664 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF651 A) (AF-REF653 AF)
                                            (IPIV-REF655 IPIV) (B-REF656 B)
                                            (X-REF658 X) (FERR-REF660 FERR)
                                            (BERR-REF661 BERR)
                                            (WORK-REF662 WORK)
                                            (RWORK-REF663 RWORK))
      (%%CGERFS TRANS N-REF649 NRHS-REF650 A-REF651 LDA-REF652 AF-REF653
       LDAF-REF654 IPIV-REF655 B-REF656 LDB-REF657 X-REF658 LDX-REF659
       FERR-REF660 BERR-REF661 WORK-REF662 RWORK-REF663 INFO-REF664))))

(CFFI:DEFCFUN ("cgerfsx_" %%CGERFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGERFSX
                   (TRANS EQUED N NRHS A LDA AF LDAF IPIV R C B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF667 ':INT32) (NRHS-REF668 ':INT32)
                              (LDA-REF670 ':INT32) (LDAF-REF672 ':INT32)
                              (LDB-REF677 ':INT32) (LDX-REF679 ':INT32)
                              (RCOND-REF680 ':FLOAT)
                              (N_ERR_BNDS-REF682 ':INT32)
                              (NPARAMS-REF685 ':INT32) (INFO-REF689 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF667 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF668 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF670 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF672 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF677 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF679 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF680 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF682 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF685 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF689 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF669 A) (AF-REF671 AF)
                                            (IPIV-REF673 IPIV) (R-REF674 R)
                                            (C-REF675 C) (B-REF676 B)
                                            (X-REF678 X) (BERR-REF681 BERR)
                                            (ERR_BNDS_NORM-REF683
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF684
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF686 PARAMS)
                                            (WORK-REF687 WORK)
                                            (RWORK-REF688 RWORK))
      (%%CGERFSX TRANS EQUED N-REF667 NRHS-REF668 A-REF669 LDA-REF670 AF-REF671
       LDAF-REF672 IPIV-REF673 R-REF674 C-REF675 B-REF676 LDB-REF677 X-REF678
       LDX-REF679 RCOND-REF680 BERR-REF681 N_ERR_BNDS-REF682
       ERR_BNDS_NORM-REF683 ERR_BNDS_COMP-REF684 NPARAMS-REF685 PARAMS-REF686
       WORK-REF687 RWORK-REF688 INFO-REF689))))

(CFFI:DEFCFUN ("cgerq2_" %%CGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGERQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF690 ':INT32) (N-REF691 ':INT32)
                              (LDA-REF693 ':INT32) (INFO-REF696 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF690 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF691 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF693 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF696 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF692 A) (TAU-REF694 TAU)
                                            (WORK-REF695 WORK))
      (%%CGERQ2 M-REF690 N-REF691 A-REF692 LDA-REF693 TAU-REF694 WORK-REF695
       INFO-REF696))))

(CFFI:DEFCFUN ("cgerqf_" %%CGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGERQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF697 ':INT32) (N-REF698 ':INT32)
                              (LDA-REF700 ':INT32) (LWORK-REF703 ':INT32)
                              (INFO-REF704 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF697 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF698 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF700 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF703 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF704 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF699 A) (TAU-REF701 TAU)
                                            (WORK-REF702 WORK))
      (%%CGERQF M-REF697 N-REF698 A-REF699 LDA-REF700 TAU-REF701 WORK-REF702
       LWORK-REF703 INFO-REF704))))

(CFFI:DEFCFUN ("cgesc2_" %%CGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RHS :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (SCALE :POINTER))

(COMMON-LISP:DEFUN %CGESC2 (N A LDA RHS IPIV JPIV SCALE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF705 ':INT32) (LDA-REF707 ':INT32)
                              (SCALE-REF711 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF705 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF707 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF711 :FLOAT) SCALE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF706 A) (RHS-REF708 RHS)
                                            (IPIV-REF709 IPIV)
                                            (JPIV-REF710 JPIV))
      (%%CGESC2 N-REF705 A-REF706 LDA-REF707 RHS-REF708 IPIV-REF709 JPIV-REF710
       SCALE-REF711))))

(CFFI:DEFCFUN ("cgesdd_" %%CGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESDD
                   (JOBZ M N A LDA S U LDU VT LDVT WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESDD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF713 ':INT32) (N-REF714 ':INT32)
                              (LDA-REF716 ':INT32) (LDU-REF719 ':INT32)
                              (LDVT-REF721 ':INT32) (LWORK-REF723 ':INT32)
                              (INFO-REF726 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF713 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF716 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF719 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF721 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF723 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF726 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF715 A) (S-REF717 S)
                                            (U-REF718 U) (VT-REF720 VT)
                                            (WORK-REF722 WORK)
                                            (RWORK-REF724 RWORK)
                                            (IWORK-REF725 IWORK))
      (%%CGESDD JOBZ M-REF713 N-REF714 A-REF715 LDA-REF716 S-REF717 U-REF718
       LDU-REF719 VT-REF720 LDVT-REF721 WORK-REF722 LWORK-REF723 RWORK-REF724
       IWORK-REF725 INFO-REF726))))

(CFFI:DEFCFUN ("cgesv_" %%CGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESV (N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF727 ':INT32) (NRHS-REF728 ':INT32)
                              (LDA-REF730 ':INT32) (LDB-REF733 ':INT32)
                              (INFO-REF734 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF727 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF728 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF730 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF733 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF734 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF729 A) (IPIV-REF731 IPIV)
                                            (B-REF732 B))
      (%%CGESV N-REF727 NRHS-REF728 A-REF729 LDA-REF730 IPIV-REF731 B-REF732
       LDB-REF733 INFO-REF734))))

(CFFI:DEFCFUN ("cgesvd_" %%CGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESVD
                   (JOBU JOBVT M N A LDA S U LDU VT LDVT WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF737 ':INT32) (N-REF738 ':INT32)
                              (LDA-REF740 ':INT32) (LDU-REF743 ':INT32)
                              (LDVT-REF745 ':INT32) (LWORK-REF747 ':INT32)
                              (INFO-REF749 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF737 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF738 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF740 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF743 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF745 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF747 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF749 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF739 A) (S-REF741 S)
                                            (U-REF742 U) (VT-REF744 VT)
                                            (WORK-REF746 WORK)
                                            (RWORK-REF748 RWORK))
      (%%CGESVD JOBU JOBVT M-REF737 N-REF738 A-REF739 LDA-REF740 S-REF741
       U-REF742 LDU-REF743 VT-REF744 LDVT-REF745 WORK-REF746 LWORK-REF747
       RWORK-REF748 INFO-REF749))))

(CFFI:DEFCFUN ("cgesvdq_" %%CGESVDQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBP :STRING)
  (JOBR :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NUMRANK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (CWORK :POINTER)
  (LCWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESVDQ
                   (JOBA JOBP JOBR JOBU JOBV M N A LDA S U LDU V LDV NUMRANK
                    IWORK LIWORK CWORK LCWORK RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NUMRANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF755 ':INT32) (N-REF756 ':INT32)
                              (LDA-REF758 ':INT32) (LDU-REF761 ':INT32)
                              (LDV-REF763 ':INT32) (NUMRANK-REF764 ':INT32)
                              (LIWORK-REF766 ':INT32) (LCWORK-REF768 ':INT32)
                              (LRWORK-REF770 ':INT32) (INFO-REF771 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF755 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF756 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF758 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF761 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF763 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF764 :INT32) NUMRANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF766 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF768 :INT32) LCWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF770 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF771 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF757 A) (S-REF759 S)
                                            (U-REF760 U) (V-REF762 V)
                                            (IWORK-REF765 IWORK)
                                            (CWORK-REF767 CWORK)
                                            (RWORK-REF769 RWORK))
      (%%CGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF755 N-REF756 A-REF757 LDA-REF758
       S-REF759 U-REF760 LDU-REF761 V-REF762 LDV-REF763 NUMRANK-REF764
       IWORK-REF765 LIWORK-REF766 CWORK-REF767 LCWORK-REF768 RWORK-REF769
       LRWORK-REF770 INFO-REF771))))

(CFFI:DEFCFUN ("cgesvdx_" %%CGESVDX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (RANGE :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (NS :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESVDX
                   (JOBU JOBVT RANGE M N A LDA VL VU IL IU NS S U LDU VT LDVT
                    WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVDX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF775 ':INT32) (N-REF776 ':INT32)
                              (LDA-REF778 ':INT32) (VL-REF779 ':FLOAT)
                              (VU-REF780 ':FLOAT) (IL-REF781 ':INT32)
                              (IU-REF782 ':INT32) (NS-REF783 ':INT32)
                              (LDU-REF786 ':INT32) (LDVT-REF788 ':INT32)
                              (LWORK-REF790 ':INT32) (INFO-REF793 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF775 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF776 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF778 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF779 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF780 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF781 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF782 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF783 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF786 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF788 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF790 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF793 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF777 A) (S-REF784 S)
                                            (U-REF785 U) (VT-REF787 VT)
                                            (WORK-REF789 WORK)
                                            (RWORK-REF791 RWORK)
                                            (IWORK-REF792 IWORK))
      (%%CGESVDX JOBU JOBVT RANGE M-REF775 N-REF776 A-REF777 LDA-REF778
       VL-REF779 VU-REF780 IL-REF781 IU-REF782 NS-REF783 S-REF784 U-REF785
       LDU-REF786 VT-REF787 LDVT-REF788 WORK-REF789 LWORK-REF790 RWORK-REF791
       IWORK-REF792 INFO-REF793))))

(CFFI:DEFCFUN ("cgesvj_" %%CGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (CWORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESVJ
                   (JOBA JOBU JOBV M N A LDA SVA MV V LDV CWORK LWORK RWORK
                    LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVJ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF797 ':INT32) (N-REF798 ':INT32)
                              (LDA-REF800 ':INT32) (MV-REF802 ':INT32)
                              (LDV-REF804 ':INT32) (LWORK-REF806 ':INT32)
                              (LRWORK-REF808 ':INT32) (INFO-REF809 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF797 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF798 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF800 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF802 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF804 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF806 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF808 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF809 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF799 A) (SVA-REF801 SVA)
                                            (V-REF803 V) (CWORK-REF805 CWORK)
                                            (RWORK-REF807 RWORK))
      (%%CGESVJ JOBA JOBU JOBV M-REF797 N-REF798 A-REF799 LDA-REF800 SVA-REF801
       MV-REF802 V-REF803 LDV-REF804 CWORK-REF805 LWORK-REF806 RWORK-REF807
       LRWORK-REF808 INFO-REF809))))

(CFFI:DEFCFUN ("cgesvx_" %%CGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESVX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF812 ':INT32) (NRHS-REF813 ':INT32)
                              (LDA-REF815 ':INT32) (LDAF-REF817 ':INT32)
                              (LDB-REF823 ':INT32) (LDX-REF825 ':INT32)
                              (RCOND-REF826 ':FLOAT) (INFO-REF831 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF812 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF813 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF815 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF817 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF823 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF825 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF826 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF831 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF814 A) (AF-REF816 AF)
                                            (IPIV-REF818 IPIV) (R-REF820 R)
                                            (C-REF821 C) (B-REF822 B)
                                            (X-REF824 X) (FERR-REF827 FERR)
                                            (BERR-REF828 BERR)
                                            (WORK-REF829 WORK)
                                            (RWORK-REF830 RWORK))
      (%%CGESVX FACT TRANS N-REF812 NRHS-REF813 A-REF814 LDA-REF815 AF-REF816
       LDAF-REF817 IPIV-REF818 EQUED R-REF820 C-REF821 B-REF822 LDB-REF823
       X-REF824 LDX-REF825 RCOND-REF826 FERR-REF827 BERR-REF828 WORK-REF829
       RWORK-REF830 INFO-REF831))))

(CFFI:DEFCFUN ("cgesvxx_" %%CGESVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGESVXX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF834 ':INT32) (NRHS-REF835 ':INT32)
                              (LDA-REF837 ':INT32) (LDAF-REF839 ':INT32)
                              (LDB-REF845 ':INT32) (LDX-REF847 ':INT32)
                              (RCOND-REF848 ':FLOAT) (RPVGRW-REF849 ':FLOAT)
                              (N_ERR_BNDS-REF851 ':INT32)
                              (NPARAMS-REF854 ':INT32) (INFO-REF858 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF834 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF835 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF837 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF839 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF845 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF847 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF848 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF849 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF851 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF854 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF858 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF836 A) (AF-REF838 AF)
                                            (IPIV-REF840 IPIV) (R-REF842 R)
                                            (C-REF843 C) (B-REF844 B)
                                            (X-REF846 X) (BERR-REF850 BERR)
                                            (ERR_BNDS_NORM-REF852
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF853
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF855 PARAMS)
                                            (WORK-REF856 WORK)
                                            (RWORK-REF857 RWORK))
      (%%CGESVXX FACT TRANS N-REF834 NRHS-REF835 A-REF836 LDA-REF837 AF-REF838
       LDAF-REF839 IPIV-REF840 EQUED R-REF842 C-REF843 B-REF844 LDB-REF845
       X-REF846 LDX-REF847 RCOND-REF848 RPVGRW-REF849 BERR-REF850
       N_ERR_BNDS-REF851 ERR_BNDS_NORM-REF852 ERR_BNDS_COMP-REF853
       NPARAMS-REF854 PARAMS-REF855 WORK-REF856 RWORK-REF857 INFO-REF858))))

(CFFI:DEFCFUN ("cgetc2_" %%CGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETC2 (N A LDA IPIV JPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF859 ':INT32) (LDA-REF861 ':INT32)
                              (INFO-REF864 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF859 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF861 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF864 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF860 A) (IPIV-REF862 IPIV)
                                            (JPIV-REF863 JPIV))
      (%%CGETC2 N-REF859 A-REF860 LDA-REF861 IPIV-REF862 JPIV-REF863
       INFO-REF864))))

(CFFI:DEFCFUN ("cgetf2_" %%CGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF865 ':INT32) (N-REF866 ':INT32)
                              (LDA-REF868 ':INT32) (INFO-REF870 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF865 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF866 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF868 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF870 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF867 A) (IPIV-REF869 IPIV))
      (%%CGETF2 M-REF865 N-REF866 A-REF867 LDA-REF868 IPIV-REF869
       INFO-REF870))))

(CFFI:DEFCFUN ("cgetrf_" %%CGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETRF (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF871 ':INT32) (N-REF872 ':INT32)
                              (LDA-REF874 ':INT32) (INFO-REF876 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF871 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF872 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF874 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF876 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF873 A) (IPIV-REF875 IPIV))
      (%%CGETRF M-REF871 N-REF872 A-REF873 LDA-REF874 IPIV-REF875
       INFO-REF876))))

(CFFI:DEFCFUN ("cgetrf2_" %%CGETRF2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETRF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETRF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF877 ':INT32) (N-REF878 ':INT32)
                              (LDA-REF880 ':INT32) (INFO-REF882 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF877 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF878 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF880 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF882 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF879 A) (IPIV-REF881 IPIV))
      (%%CGETRF2 M-REF877 N-REF878 A-REF879 LDA-REF880 IPIV-REF881
       INFO-REF882))))

(CFFI:DEFCFUN ("cgetri_" %%CGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETRI (N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETRI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF883 ':INT32) (LDA-REF885 ':INT32)
                              (LWORK-REF888 ':INT32) (INFO-REF889 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF883 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF885 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF888 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF889 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF884 A) (IPIV-REF886 IPIV)
                                            (WORK-REF887 WORK))
      (%%CGETRI N-REF883 A-REF884 LDA-REF885 IPIV-REF886 WORK-REF887
       LWORK-REF888 INFO-REF889))))

(CFFI:DEFCFUN ("cgetrs_" %%CGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETRS (TRANS N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF891 ':INT32) (NRHS-REF892 ':INT32)
                              (LDA-REF894 ':INT32) (LDB-REF897 ':INT32)
                              (INFO-REF898 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF891 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF892 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF894 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF897 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF898 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF893 A) (IPIV-REF895 IPIV)
                                            (B-REF896 B))
      (%%CGETRS TRANS N-REF891 NRHS-REF892 A-REF893 LDA-REF894 IPIV-REF895
       B-REF896 LDB-REF897 INFO-REF898))))

(CFFI:DEFCFUN ("cgetsls_" %%CGETSLS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGETSLS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETSLS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF900 ':INT32) (N-REF901 ':INT32)
                              (NRHS-REF902 ':INT32) (LDA-REF904 ':INT32)
                              (LDB-REF906 ':INT32) (LWORK-REF908 ':INT32)
                              (INFO-REF909 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF900 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF901 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF902 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF904 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF906 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF908 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF909 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF903 A) (B-REF905 B)
                                            (WORK-REF907 WORK))
      (%%CGETSLS TRANS M-REF900 N-REF901 NRHS-REF902 A-REF903 LDA-REF904
       B-REF905 LDB-REF906 WORK-REF907 LWORK-REF908 INFO-REF909))))

(CFFI:DEFCFUN ("cggbak_" %%CGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGBAK (JOB SIDE N ILO IHI LSCALE RSCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF912 ':INT32) (ILO-REF913 ':INT32)
                              (IHI-REF914 ':INT32) (M-REF917 ':INT32)
                              (LDV-REF919 ':INT32) (INFO-REF920 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF912 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF913 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF914 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF917 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF919 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF920 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF915 LSCALE)
                                            (RSCALE-REF916 RSCALE) (V-REF918 V))
      (%%CGGBAK JOB SIDE N-REF912 ILO-REF913 IHI-REF914 LSCALE-REF915
       RSCALE-REF916 M-REF917 V-REF918 LDV-REF919 INFO-REF920))))

(CFFI:DEFCFUN ("cggbal_" %%CGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGBAL (JOB N A LDA B LDB ILO IHI LSCALE RSCALE WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF922 ':INT32) (LDA-REF924 ':INT32)
                              (LDB-REF926 ':INT32) (ILO-REF927 ':INT32)
                              (IHI-REF928 ':INT32) (INFO-REF932 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF922 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF924 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF926 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF927 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF928 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF932 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF923 A) (B-REF925 B)
                                            (LSCALE-REF929 LSCALE)
                                            (RSCALE-REF930 RSCALE)
                                            (WORK-REF931 WORK))
      (%%CGGBAL JOB N-REF922 A-REF923 LDA-REF924 B-REF925 LDB-REF926 ILO-REF927
       IHI-REF928 LSCALE-REF929 RSCALE-REF930 WORK-REF931 INFO-REF932))))

(CFFI:DEFCFUN ("cgges_" %%CGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGES
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHA BETA VSL
                    LDVSL VSR LDVSR WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF936 ':INT32) (N-REF937 ':INT32)
                              (LDA-REF939 ':INT32) (LDB-REF941 ':INT32)
                              (SDIM-REF942 ':INT32) (LDVSL-REF946 ':INT32)
                              (LDVSR-REF948 ':INT32) (LWORK-REF950 ':INT32)
                              (INFO-REF953 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF936 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF937 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF939 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF941 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF942 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF946 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF948 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF950 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF953 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF938 A) (B-REF940 B)
                                            (ALPHA-REF943 ALPHA)
                                            (BETA-REF944 BETA) (VSL-REF945 VSL)
                                            (VSR-REF947 VSR) (WORK-REF949 WORK)
                                            (RWORK-REF951 RWORK)
                                            (BWORK-REF952 BWORK))
      (%%CGGES JOBVSL JOBVSR SORT SELCTG-REF936 N-REF937 A-REF938 LDA-REF939
       B-REF940 LDB-REF941 SDIM-REF942 ALPHA-REF943 BETA-REF944 VSL-REF945
       LDVSL-REF946 VSR-REF947 LDVSR-REF948 WORK-REF949 LWORK-REF950
       RWORK-REF951 BWORK-REF952 INFO-REF953))))

(CFFI:DEFCFUN ("cgges3_" %%CGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGES3
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHA BETA VSL
                    LDVSL VSR LDVSR WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGES3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF957 ':INT32) (N-REF958 ':INT32)
                              (LDA-REF960 ':INT32) (LDB-REF962 ':INT32)
                              (SDIM-REF963 ':INT32) (LDVSL-REF967 ':INT32)
                              (LDVSR-REF969 ':INT32) (LWORK-REF971 ':INT32)
                              (INFO-REF974 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF957 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF958 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF960 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF962 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF963 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF967 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF969 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF971 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF974 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF959 A) (B-REF961 B)
                                            (ALPHA-REF964 ALPHA)
                                            (BETA-REF965 BETA) (VSL-REF966 VSL)
                                            (VSR-REF968 VSR) (WORK-REF970 WORK)
                                            (RWORK-REF972 RWORK)
                                            (BWORK-REF973 BWORK))
      (%%CGGES3 JOBVSL JOBVSR SORT SELCTG-REF957 N-REF958 A-REF959 LDA-REF960
       B-REF961 LDB-REF962 SDIM-REF963 ALPHA-REF964 BETA-REF965 VSL-REF966
       LDVSL-REF967 VSR-REF968 LDVSR-REF969 WORK-REF970 LWORK-REF971
       RWORK-REF972 BWORK-REF973 INFO-REF974))))

(CFFI:DEFCFUN ("cggesx_" %%CGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGESX
                   (JOBVSL JOBVSR SORT SELCTG SENSE N A LDA B LDB SDIM ALPHA
                    BETA VSL LDVSL VSR LDVSR RCONDE RCONDV WORK LWORK RWORK
                    IWORK LIWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF978 ':INT32) (N-REF980 ':INT32)
                              (LDA-REF982 ':INT32) (LDB-REF984 ':INT32)
                              (SDIM-REF985 ':INT32) (LDVSL-REF989 ':INT32)
                              (LDVSR-REF991 ':INT32) (LWORK-REF995 ':INT32)
                              (LIWORK-REF998 ':INT32) (INFO-REF1000 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF978 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF980 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF982 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF984 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF985 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF989 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF991 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF995 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF998 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1000 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF981 A) (B-REF983 B)
                                            (ALPHA-REF986 ALPHA)
                                            (BETA-REF987 BETA) (VSL-REF988 VSL)
                                            (VSR-REF990 VSR)
                                            (RCONDE-REF992 RCONDE)
                                            (RCONDV-REF993 RCONDV)
                                            (WORK-REF994 WORK)
                                            (RWORK-REF996 RWORK)
                                            (IWORK-REF997 IWORK)
                                            (BWORK-REF999 BWORK))
      (%%CGGESX JOBVSL JOBVSR SORT SELCTG-REF978 SENSE N-REF980 A-REF981
       LDA-REF982 B-REF983 LDB-REF984 SDIM-REF985 ALPHA-REF986 BETA-REF987
       VSL-REF988 LDVSL-REF989 VSR-REF990 LDVSR-REF991 RCONDE-REF992
       RCONDV-REF993 WORK-REF994 LWORK-REF995 RWORK-REF996 IWORK-REF997
       LIWORK-REF998 BWORK-REF999 INFO-REF1000))))

(CFFI:DEFCFUN ("cggev_" %%CGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGEV
                   (JOBVL JOBVR N A LDA B LDB ALPHA BETA VL LDVL VR LDVR WORK
                    LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1003 ':INT32) (LDA-REF1005 ':INT32)
                              (LDB-REF1007 ':INT32) (LDVL-REF1011 ':INT32)
                              (LDVR-REF1013 ':INT32) (LWORK-REF1015 ':INT32)
                              (INFO-REF1017 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1003 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1005 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1007 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1011 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1013 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1015 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1017 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1004 A) (B-REF1006 B)
                                            (ALPHA-REF1008 ALPHA)
                                            (BETA-REF1009 BETA) (VL-REF1010 VL)
                                            (VR-REF1012 VR) (WORK-REF1014 WORK)
                                            (RWORK-REF1016 RWORK))
      (%%CGGEV JOBVL JOBVR N-REF1003 A-REF1004 LDA-REF1005 B-REF1006
       LDB-REF1007 ALPHA-REF1008 BETA-REF1009 VL-REF1010 LDVL-REF1011
       VR-REF1012 LDVR-REF1013 WORK-REF1014 LWORK-REF1015 RWORK-REF1016
       INFO-REF1017))))

(CFFI:DEFCFUN ("cggev3_" %%CGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGEV3
                   (JOBVL JOBVR N A LDA B LDB ALPHA BETA VL LDVL VR LDVR WORK
                    LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGEV3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1020 ':INT32) (LDA-REF1022 ':INT32)
                              (LDB-REF1024 ':INT32) (LDVL-REF1028 ':INT32)
                              (LDVR-REF1030 ':INT32) (LWORK-REF1032 ':INT32)
                              (INFO-REF1034 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1020 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1022 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1024 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1028 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1030 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1032 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1034 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1021 A) (B-REF1023 B)
                                            (ALPHA-REF1025 ALPHA)
                                            (BETA-REF1026 BETA) (VL-REF1027 VL)
                                            (VR-REF1029 VR) (WORK-REF1031 WORK)
                                            (RWORK-REF1033 RWORK))
      (%%CGGEV3 JOBVL JOBVR N-REF1020 A-REF1021 LDA-REF1022 B-REF1023
       LDB-REF1024 ALPHA-REF1025 BETA-REF1026 VL-REF1027 LDVL-REF1028
       VR-REF1029 LDVR-REF1030 WORK-REF1031 LWORK-REF1032 RWORK-REF1033
       INFO-REF1034))))

(CFFI:DEFCFUN ("cggevx_" %%CGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (ABNRM :POINTER)
  (BBNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA B LDB ALPHA BETA VL LDVL
                    VR LDVR ILO IHI LSCALE RSCALE ABNRM BBNRM RCONDE RCONDV
                    WORK LWORK RWORK IWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BBNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1039 ':INT32) (LDA-REF1041 ':INT32)
                              (LDB-REF1043 ':INT32) (LDVL-REF1047 ':INT32)
                              (LDVR-REF1049 ':INT32) (ILO-REF1050 ':INT32)
                              (IHI-REF1051 ':INT32) (ABNRM-REF1054 ':FLOAT)
                              (BBNRM-REF1055 ':FLOAT) (LWORK-REF1059 ':INT32)
                              (INFO-REF1063 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1039 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1041 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1043 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1047 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1049 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1050 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1051 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF1054 :FLOAT) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF1055 :FLOAT) BBNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1059 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1063 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1040 A) (B-REF1042 B)
                                            (ALPHA-REF1044 ALPHA)
                                            (BETA-REF1045 BETA) (VL-REF1046 VL)
                                            (VR-REF1048 VR)
                                            (LSCALE-REF1052 LSCALE)
                                            (RSCALE-REF1053 RSCALE)
                                            (RCONDE-REF1056 RCONDE)
                                            (RCONDV-REF1057 RCONDV)
                                            (WORK-REF1058 WORK)
                                            (RWORK-REF1060 RWORK)
                                            (IWORK-REF1061 IWORK)
                                            (BWORK-REF1062 BWORK))
      (%%CGGEVX BALANC JOBVL JOBVR SENSE N-REF1039 A-REF1040 LDA-REF1041
       B-REF1042 LDB-REF1043 ALPHA-REF1044 BETA-REF1045 VL-REF1046 LDVL-REF1047
       VR-REF1048 LDVR-REF1049 ILO-REF1050 IHI-REF1051 LSCALE-REF1052
       RSCALE-REF1053 ABNRM-REF1054 BBNRM-REF1055 RCONDE-REF1056 RCONDV-REF1057
       WORK-REF1058 LWORK-REF1059 RWORK-REF1060 IWORK-REF1061 BWORK-REF1062
       INFO-REF1063))))

(CFFI:DEFCFUN ("cggglm_" %%CGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (D :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGGLM (N M P A LDA B LDB D X Y WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGGLM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1064 ':INT32) (M-REF1065 ':INT32)
                              (P-REF1066 ':INT32) (LDA-REF1068 ':INT32)
                              (LDB-REF1070 ':INT32) (LWORK-REF1075 ':INT32)
                              (INFO-REF1076 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1064 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1065 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1066 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1068 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1070 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1075 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1076 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1067 A) (B-REF1069 B)
                                            (D-REF1071 D) (X-REF1072 X)
                                            (Y-REF1073 Y) (WORK-REF1074 WORK))
      (%%CGGGLM N-REF1064 M-REF1065 P-REF1066 A-REF1067 LDA-REF1068 B-REF1069
       LDB-REF1070 D-REF1071 X-REF1072 Y-REF1073 WORK-REF1074 LWORK-REF1075
       INFO-REF1076))))

(CFFI:DEFCFUN ("cgghd3_" %%CGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGHD3
                   (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGHD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1079 ':INT32) (ILO-REF1080 ':INT32)
                              (IHI-REF1081 ':INT32) (LDA-REF1083 ':INT32)
                              (LDB-REF1085 ':INT32) (LDQ-REF1087 ':INT32)
                              (LDZ-REF1089 ':INT32) (LWORK-REF1091 ':INT32)
                              (INFO-REF1092 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1079 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1080 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1081 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1083 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1085 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1087 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1089 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1091 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1092 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1082 A) (B-REF1084 B)
                                            (Q-REF1086 Q) (Z-REF1088 Z)
                                            (WORK-REF1090 WORK))
      (%%CGGHD3 COMPQ COMPZ N-REF1079 ILO-REF1080 IHI-REF1081 A-REF1082
       LDA-REF1083 B-REF1084 LDB-REF1085 Q-REF1086 LDQ-REF1087 Z-REF1088
       LDZ-REF1089 WORK-REF1090 LWORK-REF1091 INFO-REF1092))))

(CFFI:DEFCFUN ("cgghrd_" %%CGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGHRD (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGHRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1095 ':INT32) (ILO-REF1096 ':INT32)
                              (IHI-REF1097 ':INT32) (LDA-REF1099 ':INT32)
                              (LDB-REF1101 ':INT32) (LDQ-REF1103 ':INT32)
                              (LDZ-REF1105 ':INT32) (INFO-REF1106 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1095 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1096 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1097 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1099 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1101 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1103 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1105 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1106 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1098 A) (B-REF1100 B)
                                            (Q-REF1102 Q) (Z-REF1104 Z))
      (%%CGGHRD COMPQ COMPZ N-REF1095 ILO-REF1096 IHI-REF1097 A-REF1098
       LDA-REF1099 B-REF1100 LDB-REF1101 Q-REF1102 LDQ-REF1103 Z-REF1104
       LDZ-REF1105 INFO-REF1106))))

(CFFI:DEFCFUN ("cgglse_" %%CGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (D :POINTER)
  (X :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGLSE (M N P A LDA B LDB C D X WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGLSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1107 ':INT32) (N-REF1108 ':INT32)
                              (P-REF1109 ':INT32) (LDA-REF1111 ':INT32)
                              (LDB-REF1113 ':INT32) (LWORK-REF1118 ':INT32)
                              (INFO-REF1119 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1107 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1108 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1109 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1111 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1113 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1118 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1119 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1110 A) (B-REF1112 B)
                                            (C-REF1114 C) (D-REF1115 D)
                                            (X-REF1116 X) (WORK-REF1117 WORK))
      (%%CGGLSE M-REF1107 N-REF1108 P-REF1109 A-REF1110 LDA-REF1111 B-REF1112
       LDB-REF1113 C-REF1114 D-REF1115 X-REF1116 WORK-REF1117 LWORK-REF1118
       INFO-REF1119))))

(CFFI:DEFCFUN ("cggqrf_" %%CGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGQRF (N M P A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1120 ':INT32) (M-REF1121 ':INT32)
                              (P-REF1122 ':INT32) (LDA-REF1124 ':INT32)
                              (LDB-REF1127 ':INT32) (LWORK-REF1130 ':INT32)
                              (INFO-REF1131 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1120 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1121 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1122 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1124 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1127 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1130 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1131 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1123 A) (TAUA-REF1125 TAUA)
                                            (B-REF1126 B) (TAUB-REF1128 TAUB)
                                            (WORK-REF1129 WORK))
      (%%CGGQRF N-REF1120 M-REF1121 P-REF1122 A-REF1123 LDA-REF1124
       TAUA-REF1125 B-REF1126 LDB-REF1127 TAUB-REF1128 WORK-REF1129
       LWORK-REF1130 INFO-REF1131))))

(CFFI:DEFCFUN ("cggrqf_" %%CGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGRQF (M P N A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGRQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1132 ':INT32) (P-REF1133 ':INT32)
                              (N-REF1134 ':INT32) (LDA-REF1136 ':INT32)
                              (LDB-REF1139 ':INT32) (LWORK-REF1142 ':INT32)
                              (INFO-REF1143 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1132 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1133 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1134 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1136 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1139 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1142 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1143 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1135 A) (TAUA-REF1137 TAUA)
                                            (B-REF1138 B) (TAUB-REF1140 TAUB)
                                            (WORK-REF1141 WORK))
      (%%CGGRQF M-REF1132 P-REF1133 N-REF1134 A-REF1135 LDA-REF1136
       TAUA-REF1137 B-REF1138 LDB-REF1139 TAUB-REF1140 WORK-REF1141
       LWORK-REF1142 INFO-REF1143))))

(CFFI:DEFCFUN ("cggsvd3_" %%CGGSVD3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGSVD3
                   (JOBU JOBV JOBQ M N P K L A LDA B LDB ALPHA BETA U LDU V LDV
                    Q LDQ WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGSVD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1147 ':INT32) (N-REF1148 ':INT32)
                              (P-REF1149 ':INT32) (K-REF1150 ':INT32)
                              (L-REF1151 ':INT32) (LDA-REF1153 ':INT32)
                              (LDB-REF1155 ':INT32) (LDU-REF1159 ':INT32)
                              (LDV-REF1161 ':INT32) (LDQ-REF1163 ':INT32)
                              (LWORK-REF1165 ':INT32) (INFO-REF1168 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1147 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1148 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1149 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1150 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF1151 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1153 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1155 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1159 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1161 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1163 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1165 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1168 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1152 A) (B-REF1154 B)
                                            (ALPHA-REF1156 ALPHA)
                                            (BETA-REF1157 BETA) (U-REF1158 U)
                                            (V-REF1160 V) (Q-REF1162 Q)
                                            (WORK-REF1164 WORK)
                                            (RWORK-REF1166 RWORK)
                                            (IWORK-REF1167 IWORK))
      (%%CGGSVD3 JOBU JOBV JOBQ M-REF1147 N-REF1148 P-REF1149 K-REF1150
       L-REF1151 A-REF1152 LDA-REF1153 B-REF1154 LDB-REF1155 ALPHA-REF1156
       BETA-REF1157 U-REF1158 LDU-REF1159 V-REF1160 LDV-REF1161 Q-REF1162
       LDQ-REF1163 WORK-REF1164 LWORK-REF1165 RWORK-REF1166 IWORK-REF1167
       INFO-REF1168))))

(CFFI:DEFCFUN ("cggsvp3_" %%CGGSVP3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (K :POINTER)
  (L :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IWORK :POINTER)
  (RWORK :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGGSVP3
                   (JOBU JOBV JOBQ M P N A LDA B LDB TOLA TOLB K L U LDU V LDV
                    Q LDQ IWORK RWORK TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGSVP3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1172 ':INT32) (P-REF1173 ':INT32)
                              (N-REF1174 ':INT32) (LDA-REF1176 ':INT32)
                              (LDB-REF1178 ':INT32) (TOLA-REF1179 ':FLOAT)
                              (TOLB-REF1180 ':FLOAT) (K-REF1181 ':INT32)
                              (L-REF1182 ':INT32) (LDU-REF1184 ':INT32)
                              (LDV-REF1186 ':INT32) (LDQ-REF1188 ':INT32)
                              (LWORK-REF1193 ':INT32) (INFO-REF1194 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1172 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1173 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1174 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1176 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1178 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF1179 :FLOAT) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF1180 :FLOAT) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1181 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF1182 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1184 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1186 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1188 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1193 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1194 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1175 A) (B-REF1177 B)
                                            (U-REF1183 U) (V-REF1185 V)
                                            (Q-REF1187 Q) (IWORK-REF1189 IWORK)
                                            (RWORK-REF1190 RWORK)
                                            (TAU-REF1191 TAU)
                                            (WORK-REF1192 WORK))
      (%%CGGSVP3 JOBU JOBV JOBQ M-REF1172 P-REF1173 N-REF1174 A-REF1175
       LDA-REF1176 B-REF1177 LDB-REF1178 TOLA-REF1179 TOLB-REF1180 K-REF1181
       L-REF1182 U-REF1183 LDU-REF1184 V-REF1185 LDV-REF1186 Q-REF1187
       LDQ-REF1188 IWORK-REF1189 RWORK-REF1190 TAU-REF1191 WORK-REF1192
       LWORK-REF1193 INFO-REF1194))))

(CFFI:DEFCFUN ("cgsvj0_" %%CGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGSVJ0
                   (JOBV M N A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGSVJ0)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1196 ':INT32) (N-REF1197 ':INT32)
                              (LDA-REF1199 ':INT32) (MV-REF1202 ':INT32)
                              (LDV-REF1204 ':INT32) (EPS-REF1205 ':FLOAT)
                              (SFMIN-REF1206 ':FLOAT) (TOL-REF1207 ':FLOAT)
                              (NSWEEP-REF1208 ':INT32) (LWORK-REF1210 ':INT32)
                              (INFO-REF1211 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1196 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1197 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1199 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF1202 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1204 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF1205 :FLOAT) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF1206 :FLOAT) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF1207 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF1208 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1210 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1211 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1198 A) (D-REF1200 D)
                                            (SVA-REF1201 SVA) (V-REF1203 V)
                                            (WORK-REF1209 WORK))
      (%%CGSVJ0 JOBV M-REF1196 N-REF1197 A-REF1198 LDA-REF1199 D-REF1200
       SVA-REF1201 MV-REF1202 V-REF1203 LDV-REF1204 EPS-REF1205 SFMIN-REF1206
       TOL-REF1207 NSWEEP-REF1208 WORK-REF1209 LWORK-REF1210 INFO-REF1211))))

(CFFI:DEFCFUN ("cgsvj1_" %%CGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGSVJ1
                   (JOBV M N N1 A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGSVJ1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1213 ':INT32) (N-REF1214 ':INT32)
                              (N1-REF1215 ':INT32) (LDA-REF1217 ':INT32)
                              (MV-REF1220 ':INT32) (LDV-REF1222 ':INT32)
                              (EPS-REF1223 ':FLOAT) (SFMIN-REF1224 ':FLOAT)
                              (TOL-REF1225 ':FLOAT) (NSWEEP-REF1226 ':INT32)
                              (LWORK-REF1228 ':INT32) (INFO-REF1229 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1213 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1214 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF1215 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1217 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF1220 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1222 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF1223 :FLOAT) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF1224 :FLOAT) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF1225 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF1226 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1228 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1229 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1216 A) (D-REF1218 D)
                                            (SVA-REF1219 SVA) (V-REF1221 V)
                                            (WORK-REF1227 WORK))
      (%%CGSVJ1 JOBV M-REF1213 N-REF1214 N1-REF1215 A-REF1216 LDA-REF1217
       D-REF1218 SVA-REF1219 MV-REF1220 V-REF1221 LDV-REF1222 EPS-REF1223
       SFMIN-REF1224 TOL-REF1225 NSWEEP-REF1226 WORK-REF1227 LWORK-REF1228
       INFO-REF1229))))

(CFFI:DEFCFUN ("cgtcon_" %%CGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGTCON (NORM N DL D DU DU2 IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1231 ':INT32) (ANORM-REF1237 ':FLOAT)
                              (RCOND-REF1238 ':FLOAT) (INFO-REF1240 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1231 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1237 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1238 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1240 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1232 DL) (D-REF1233 D)
                                            (DU-REF1234 DU) (DU2-REF1235 DU2)
                                            (IPIV-REF1236 IPIV)
                                            (WORK-REF1239 WORK))
      (%%CGTCON NORM N-REF1231 DL-REF1232 D-REF1233 DU-REF1234 DU2-REF1235
       IPIV-REF1236 ANORM-REF1237 RCOND-REF1238 WORK-REF1239 INFO-REF1240))))

(CFFI:DEFCFUN ("cgtrfs_" %%CGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGTRFS
                   (TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX FERR
                    BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1242 ':INT32) (NRHS-REF1243 ':INT32)
                              (LDB-REF1253 ':INT32) (LDX-REF1255 ':INT32)
                              (INFO-REF1260 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1242 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1243 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1253 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1255 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1260 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1244 DL) (D-REF1245 D)
                                            (DU-REF1246 DU) (DLF-REF1247 DLF)
                                            (DF-REF1248 DF) (DUF-REF1249 DUF)
                                            (DU2-REF1250 DU2)
                                            (IPIV-REF1251 IPIV) (B-REF1252 B)
                                            (X-REF1254 X) (FERR-REF1256 FERR)
                                            (BERR-REF1257 BERR)
                                            (WORK-REF1258 WORK)
                                            (RWORK-REF1259 RWORK))
      (%%CGTRFS TRANS N-REF1242 NRHS-REF1243 DL-REF1244 D-REF1245 DU-REF1246
       DLF-REF1247 DF-REF1248 DUF-REF1249 DU2-REF1250 IPIV-REF1251 B-REF1252
       LDB-REF1253 X-REF1254 LDX-REF1255 FERR-REF1256 BERR-REF1257 WORK-REF1258
       RWORK-REF1259 INFO-REF1260))))

(CFFI:DEFCFUN ("cgtsv_" %%CGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGTSV (N NRHS DL D DU B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1261 ':INT32) (NRHS-REF1262 ':INT32)
                              (LDB-REF1267 ':INT32) (INFO-REF1268 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1261 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1262 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1267 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1268 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1263 DL) (D-REF1264 D)
                                            (DU-REF1265 DU) (B-REF1266 B))
      (%%CGTSV N-REF1261 NRHS-REF1262 DL-REF1263 D-REF1264 DU-REF1265 B-REF1266
       LDB-REF1267 INFO-REF1268))))

(CFFI:DEFCFUN ("cgtsvx_" %%CGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGTSVX
                   (FACT TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX
                    RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1271 ':INT32) (NRHS-REF1272 ':INT32)
                              (LDB-REF1282 ':INT32) (LDX-REF1284 ':INT32)
                              (RCOND-REF1285 ':FLOAT) (INFO-REF1290 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1271 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1272 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1282 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1284 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1285 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1290 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1273 DL) (D-REF1274 D)
                                            (DU-REF1275 DU) (DLF-REF1276 DLF)
                                            (DF-REF1277 DF) (DUF-REF1278 DUF)
                                            (DU2-REF1279 DU2)
                                            (IPIV-REF1280 IPIV) (B-REF1281 B)
                                            (X-REF1283 X) (FERR-REF1286 FERR)
                                            (BERR-REF1287 BERR)
                                            (WORK-REF1288 WORK)
                                            (RWORK-REF1289 RWORK))
      (%%CGTSVX FACT TRANS N-REF1271 NRHS-REF1272 DL-REF1273 D-REF1274
       DU-REF1275 DLF-REF1276 DF-REF1277 DUF-REF1278 DU2-REF1279 IPIV-REF1280
       B-REF1281 LDB-REF1282 X-REF1283 LDX-REF1284 RCOND-REF1285 FERR-REF1286
       BERR-REF1287 WORK-REF1288 RWORK-REF1289 INFO-REF1290))))

(CFFI:DEFCFUN ("cgttrf_" %%CGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGTTRF (N DL D DU DU2 IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1291 ':INT32) (INFO-REF1297 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1291 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1297 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1292 DL) (D-REF1293 D)
                                            (DU-REF1294 DU) (DU2-REF1295 DU2)
                                            (IPIV-REF1296 IPIV))
      (%%CGTTRF N-REF1291 DL-REF1292 D-REF1293 DU-REF1294 DU2-REF1295
       IPIV-REF1296 INFO-REF1297))))

(CFFI:DEFCFUN ("cgttrs_" %%CGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CGTTRS (TRANS N NRHS DL D DU DU2 IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1299 ':INT32) (NRHS-REF1300 ':INT32)
                              (LDB-REF1307 ':INT32) (INFO-REF1308 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1299 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1300 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1307 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1308 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1301 DL) (D-REF1302 D)
                                            (DU-REF1303 DU) (DU2-REF1304 DU2)
                                            (IPIV-REF1305 IPIV) (B-REF1306 B))
      (%%CGTTRS TRANS N-REF1299 NRHS-REF1300 DL-REF1301 D-REF1302 DU-REF1303
       DU2-REF1304 IPIV-REF1305 B-REF1306 LDB-REF1307 INFO-REF1308))))

(CFFI:DEFCFUN ("cgtts2_" %%CGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITRANS :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CGTTS2 (ITRANS N NRHS DL D DU DU2 IPIV B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF1309 ':INT32) (N-REF1310 ':INT32)
                              (NRHS-REF1311 ':INT32) (LDB-REF1318 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF1309 :INT32) ITRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1310 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1311 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1318 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1312 DL) (D-REF1313 D)
                                            (DU-REF1314 DU) (DU2-REF1315 DU2)
                                            (IPIV-REF1316 IPIV) (B-REF1317 B))
      (%%CGTTS2 ITRANS-REF1309 N-REF1310 NRHS-REF1311 DL-REF1312 D-REF1313
       DU-REF1314 DU2-REF1315 IPIV-REF1316 B-REF1317 LDB-REF1318))))

(CFFI:DEFCFUN ("chb2st_kernels_" %%CHB2ST_KERNELS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WANTZ :POINTER)
  (TTYPE :POINTER)
  (ST :POINTER)
  (ED :POINTER)
  (SWEEP :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (IB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CHB2ST_KERNELS
                   (UPLO WANTZ TTYPE ST ED SWEEP N NB IB A LDA V TAU LDVT WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHB2ST_KERNELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SWEEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF1320 ':INT32) (TTYPE-REF1321 ':INT32)
                              (ST-REF1322 ':INT32) (ED-REF1323 ':INT32)
                              (SWEEP-REF1324 ':INT32) (N-REF1325 ':INT32)
                              (NB-REF1326 ':INT32) (IB-REF1327 ':INT32)
                              (LDA-REF1329 ':INT32) (LDVT-REF1332 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF1320 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF1321 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF1322 :INT32) ST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF1323 :INT32) ED)
    (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF1324 :INT32) SWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1325 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF1326 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF1327 :INT32) IB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1329 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF1332 :INT32) LDVT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1328 A) (V-REF1330 V)
                                            (TAU-REF1331 TAU)
                                            (WORK-REF1333 WORK))
      (%%CHB2ST_KERNELS UPLO WANTZ-REF1320 TTYPE-REF1321 ST-REF1322 ED-REF1323
       SWEEP-REF1324 N-REF1325 NB-REF1326 IB-REF1327 A-REF1328 LDA-REF1329
       V-REF1330 TAU-REF1331 LDVT-REF1332 WORK-REF1333))))

(CFFI:DEFCFUN ("chbev_" %%CHBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBEV (JOBZ UPLO N KD AB LDAB W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1336 ':INT32) (KD-REF1337 ':INT32)
                              (LDAB-REF1339 ':INT32) (LDZ-REF1342 ':INT32)
                              (INFO-REF1345 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1336 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1337 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1339 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1342 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1345 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1338 AB) (W-REF1340 W)
                                            (Z-REF1341 Z) (WORK-REF1343 WORK)
                                            (RWORK-REF1344 RWORK))
      (%%CHBEV JOBZ UPLO N-REF1336 KD-REF1337 AB-REF1338 LDAB-REF1339 W-REF1340
       Z-REF1341 LDZ-REF1342 WORK-REF1343 RWORK-REF1344 INFO-REF1345))))

(CFFI:DEFCFUN ("chbev_2stage_" %%CHBEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBEV_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1348 ':INT32) (KD-REF1349 ':INT32)
                              (LDAB-REF1351 ':INT32) (LDZ-REF1354 ':INT32)
                              (LWORK-REF1356 ':INT32) (INFO-REF1358 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1348 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1349 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1351 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1354 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1356 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1358 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1350 AB) (W-REF1352 W)
                                            (Z-REF1353 Z) (WORK-REF1355 WORK)
                                            (RWORK-REF1357 RWORK))
      (%%CHBEV_2STAGE JOBZ UPLO N-REF1348 KD-REF1349 AB-REF1350 LDAB-REF1351
       W-REF1352 Z-REF1353 LDZ-REF1354 WORK-REF1355 LWORK-REF1356 RWORK-REF1357
       INFO-REF1358))))

(CFFI:DEFCFUN ("chbevd_" %%CHBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBEVD
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1361 ':INT32) (KD-REF1362 ':INT32)
                              (LDAB-REF1364 ':INT32) (LDZ-REF1367 ':INT32)
                              (LWORK-REF1369 ':INT32) (LRWORK-REF1371 ':INT32)
                              (LIWORK-REF1373 ':INT32) (INFO-REF1374 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1361 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1362 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1364 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1367 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1369 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1371 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1373 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1374 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1363 AB) (W-REF1365 W)
                                            (Z-REF1366 Z) (WORK-REF1368 WORK)
                                            (RWORK-REF1370 RWORK)
                                            (IWORK-REF1372 IWORK))
      (%%CHBEVD JOBZ UPLO N-REF1361 KD-REF1362 AB-REF1363 LDAB-REF1364
       W-REF1365 Z-REF1366 LDZ-REF1367 WORK-REF1368 LWORK-REF1369 RWORK-REF1370
       LRWORK-REF1371 IWORK-REF1372 LIWORK-REF1373 INFO-REF1374))))

(CFFI:DEFCFUN ("chbevd_2stage_" %%CHBEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBEVD_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1377 ':INT32) (KD-REF1378 ':INT32)
                              (LDAB-REF1380 ':INT32) (LDZ-REF1383 ':INT32)
                              (LWORK-REF1385 ':INT32) (LRWORK-REF1387 ':INT32)
                              (LIWORK-REF1389 ':INT32) (INFO-REF1390 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1377 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1378 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1380 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1383 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1385 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1387 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1389 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1390 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1379 AB) (W-REF1381 W)
                                            (Z-REF1382 Z) (WORK-REF1384 WORK)
                                            (RWORK-REF1386 RWORK)
                                            (IWORK-REF1388 IWORK))
      (%%CHBEVD_2STAGE JOBZ UPLO N-REF1377 KD-REF1378 AB-REF1379 LDAB-REF1380
       W-REF1381 Z-REF1382 LDZ-REF1383 WORK-REF1384 LWORK-REF1385 RWORK-REF1386
       LRWORK-REF1387 IWORK-REF1388 LIWORK-REF1389 INFO-REF1390))))

(CFFI:DEFCFUN ("chbevx_" %%CHBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBEVX
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1394 ':INT32) (KD-REF1395 ':INT32)
                              (LDAB-REF1397 ':INT32) (LDQ-REF1399 ':INT32)
                              (VL-REF1400 ':FLOAT) (VU-REF1401 ':FLOAT)
                              (IL-REF1402 ':INT32) (IU-REF1403 ':INT32)
                              (ABSTOL-REF1404 ':FLOAT) (M-REF1405 ':INT32)
                              (LDZ-REF1408 ':INT32) (INFO-REF1413 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1394 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1395 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1397 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1399 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1400 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1401 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1402 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1403 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1404 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1405 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1408 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1413 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1396 AB) (Q-REF1398 Q)
                                            (W-REF1406 W) (Z-REF1407 Z)
                                            (WORK-REF1409 WORK)
                                            (RWORK-REF1410 RWORK)
                                            (IWORK-REF1411 IWORK)
                                            (IFAIL-REF1412 IFAIL))
      (%%CHBEVX JOBZ RANGE UPLO N-REF1394 KD-REF1395 AB-REF1396 LDAB-REF1397
       Q-REF1398 LDQ-REF1399 VL-REF1400 VU-REF1401 IL-REF1402 IU-REF1403
       ABSTOL-REF1404 M-REF1405 W-REF1406 Z-REF1407 LDZ-REF1408 WORK-REF1409
       RWORK-REF1410 IWORK-REF1411 IFAIL-REF1412 INFO-REF1413))))

(CFFI:DEFCFUN ("chbevx_2stage_" %%CHBEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBEVX_2STAGE
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1417 ':INT32) (KD-REF1418 ':INT32)
                              (LDAB-REF1420 ':INT32) (LDQ-REF1422 ':INT32)
                              (VL-REF1423 ':FLOAT) (VU-REF1424 ':FLOAT)
                              (IL-REF1425 ':INT32) (IU-REF1426 ':INT32)
                              (ABSTOL-REF1427 ':FLOAT) (M-REF1428 ':INT32)
                              (LDZ-REF1431 ':INT32) (LWORK-REF1433 ':INT32)
                              (INFO-REF1437 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1417 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1418 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1420 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1422 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1423 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1424 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1425 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1426 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1427 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1428 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1431 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1433 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1437 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1419 AB) (Q-REF1421 Q)
                                            (W-REF1429 W) (Z-REF1430 Z)
                                            (WORK-REF1432 WORK)
                                            (RWORK-REF1434 RWORK)
                                            (IWORK-REF1435 IWORK)
                                            (IFAIL-REF1436 IFAIL))
      (%%CHBEVX_2STAGE JOBZ RANGE UPLO N-REF1417 KD-REF1418 AB-REF1419
       LDAB-REF1420 Q-REF1421 LDQ-REF1422 VL-REF1423 VU-REF1424 IL-REF1425
       IU-REF1426 ABSTOL-REF1427 M-REF1428 W-REF1429 Z-REF1430 LDZ-REF1431
       WORK-REF1432 LWORK-REF1433 RWORK-REF1434 IWORK-REF1435 IFAIL-REF1436
       INFO-REF1437))))

(CFFI:DEFCFUN ("chbgst_" %%CHBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBGST
                   (VECT UPLO N KA KB AB LDAB BB LDBB X LDX WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBGST)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1440 ':INT32) (KA-REF1441 ':INT32)
                              (KB-REF1442 ':INT32) (LDAB-REF1444 ':INT32)
                              (LDBB-REF1446 ':INT32) (LDX-REF1448 ':INT32)
                              (INFO-REF1451 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1440 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1441 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1442 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1444 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1446 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1448 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1451 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1443 AB) (BB-REF1445 BB)
                                            (X-REF1447 X) (WORK-REF1449 WORK)
                                            (RWORK-REF1450 RWORK))
      (%%CHBGST VECT UPLO N-REF1440 KA-REF1441 KB-REF1442 AB-REF1443
       LDAB-REF1444 BB-REF1445 LDBB-REF1446 X-REF1447 LDX-REF1448 WORK-REF1449
       RWORK-REF1450 INFO-REF1451))))

(CFFI:DEFCFUN ("chbgv_" %%CHBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBGV
                   (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBGV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1454 ':INT32) (KA-REF1455 ':INT32)
                              (KB-REF1456 ':INT32) (LDAB-REF1458 ':INT32)
                              (LDBB-REF1460 ':INT32) (LDZ-REF1463 ':INT32)
                              (INFO-REF1466 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1454 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1455 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1456 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1458 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1460 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1463 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1466 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1457 AB) (BB-REF1459 BB)
                                            (W-REF1461 W) (Z-REF1462 Z)
                                            (WORK-REF1464 WORK)
                                            (RWORK-REF1465 RWORK))
      (%%CHBGV JOBZ UPLO N-REF1454 KA-REF1455 KB-REF1456 AB-REF1457
       LDAB-REF1458 BB-REF1459 LDBB-REF1460 W-REF1461 Z-REF1462 LDZ-REF1463
       WORK-REF1464 RWORK-REF1465 INFO-REF1466))))

(CFFI:DEFCFUN ("chbgvd_" %%CHBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBGVD
                   (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK LWORK RWORK
                    LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBGVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1469 ':INT32) (KA-REF1470 ':INT32)
                              (KB-REF1471 ':INT32) (LDAB-REF1473 ':INT32)
                              (LDBB-REF1475 ':INT32) (LDZ-REF1478 ':INT32)
                              (LWORK-REF1480 ':INT32) (LRWORK-REF1482 ':INT32)
                              (LIWORK-REF1484 ':INT32) (INFO-REF1485 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1469 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1470 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1471 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1473 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1475 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1478 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1480 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1482 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1484 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1485 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1472 AB) (BB-REF1474 BB)
                                            (W-REF1476 W) (Z-REF1477 Z)
                                            (WORK-REF1479 WORK)
                                            (RWORK-REF1481 RWORK)
                                            (IWORK-REF1483 IWORK))
      (%%CHBGVD JOBZ UPLO N-REF1469 KA-REF1470 KB-REF1471 AB-REF1472
       LDAB-REF1473 BB-REF1474 LDBB-REF1475 W-REF1476 Z-REF1477 LDZ-REF1478
       WORK-REF1479 LWORK-REF1480 RWORK-REF1481 LRWORK-REF1482 IWORK-REF1483
       LIWORK-REF1484 INFO-REF1485))))

(CFFI:DEFCFUN ("chbgvx_" %%CHBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBGVX
                   (JOBZ RANGE UPLO N KA KB AB LDAB BB LDBB Q LDQ VL VU IL IU
                    ABSTOL M W Z LDZ WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBGVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1489 ':INT32) (KA-REF1490 ':INT32)
                              (KB-REF1491 ':INT32) (LDAB-REF1493 ':INT32)
                              (LDBB-REF1495 ':INT32) (LDQ-REF1497 ':INT32)
                              (VL-REF1498 ':FLOAT) (VU-REF1499 ':FLOAT)
                              (IL-REF1500 ':INT32) (IU-REF1501 ':INT32)
                              (ABSTOL-REF1502 ':FLOAT) (M-REF1503 ':INT32)
                              (LDZ-REF1506 ':INT32) (INFO-REF1511 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1489 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1490 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1491 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1493 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1495 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1497 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1498 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1499 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1500 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1501 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1502 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1503 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1506 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1511 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1492 AB) (BB-REF1494 BB)
                                            (Q-REF1496 Q) (W-REF1504 W)
                                            (Z-REF1505 Z) (WORK-REF1507 WORK)
                                            (RWORK-REF1508 RWORK)
                                            (IWORK-REF1509 IWORK)
                                            (IFAIL-REF1510 IFAIL))
      (%%CHBGVX JOBZ RANGE UPLO N-REF1489 KA-REF1490 KB-REF1491 AB-REF1492
       LDAB-REF1493 BB-REF1494 LDBB-REF1495 Q-REF1496 LDQ-REF1497 VL-REF1498
       VU-REF1499 IL-REF1500 IU-REF1501 ABSTOL-REF1502 M-REF1503 W-REF1504
       Z-REF1505 LDZ-REF1506 WORK-REF1507 RWORK-REF1508 IWORK-REF1509
       IFAIL-REF1510 INFO-REF1511))))

(CFFI:DEFCFUN ("chbtrd_" %%CHBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHBTRD (VECT UPLO N KD AB LDAB D E Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1514 ':INT32) (KD-REF1515 ':INT32)
                              (LDAB-REF1517 ':INT32) (LDQ-REF1521 ':INT32)
                              (INFO-REF1523 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1514 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1515 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1517 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1521 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1523 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1516 AB) (D-REF1518 D)
                                            (E-REF1519 E) (Q-REF1520 Q)
                                            (WORK-REF1522 WORK))
      (%%CHBTRD VECT UPLO N-REF1514 KD-REF1515 AB-REF1516 LDAB-REF1517
       D-REF1518 E-REF1519 Q-REF1520 LDQ-REF1521 WORK-REF1522 INFO-REF1523))))

(CFFI:DEFCFUN ("checon_" %%CHECON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHECON (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHECON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1525 ':INT32) (LDA-REF1527 ':INT32)
                              (ANORM-REF1529 ':FLOAT) (RCOND-REF1530 ':FLOAT)
                              (INFO-REF1532 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1525 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1527 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1529 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1530 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1532 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1526 A) (IPIV-REF1528 IPIV)
                                            (WORK-REF1531 WORK))
      (%%CHECON UPLO N-REF1525 A-REF1526 LDA-REF1527 IPIV-REF1528 ANORM-REF1529
       RCOND-REF1530 WORK-REF1531 INFO-REF1532))))

(CFFI:DEFCFUN ("checon_3_" %%CHECON_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHECON_3 (UPLO N A LDA E IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHECON_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1534 ':INT32) (LDA-REF1536 ':INT32)
                              (ANORM-REF1539 ':FLOAT) (RCOND-REF1540 ':FLOAT)
                              (INFO-REF1542 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1534 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1536 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1539 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1540 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1542 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1535 A) (E-REF1537 E)
                                            (IPIV-REF1538 IPIV)
                                            (WORK-REF1541 WORK))
      (%%CHECON_3 UPLO N-REF1534 A-REF1535 LDA-REF1536 E-REF1537 IPIV-REF1538
       ANORM-REF1539 RCOND-REF1540 WORK-REF1541 INFO-REF1542))))

(CFFI:DEFCFUN ("checon_rook_" %%CHECON_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHECON_ROOK (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHECON_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1544 ':INT32) (LDA-REF1546 ':INT32)
                              (ANORM-REF1548 ':FLOAT) (RCOND-REF1549 ':FLOAT)
                              (INFO-REF1551 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1544 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1546 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1548 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1549 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1551 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1545 A) (IPIV-REF1547 IPIV)
                                            (WORK-REF1550 WORK))
      (%%CHECON_ROOK UPLO N-REF1544 A-REF1545 LDA-REF1546 IPIV-REF1547
       ANORM-REF1548 RCOND-REF1549 WORK-REF1550 INFO-REF1551))))

(CFFI:DEFCFUN ("cheequb_" %%CHEEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEQUB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1553 ':INT32) (LDA-REF1555 ':INT32)
                              (SCOND-REF1557 ':FLOAT) (AMAX-REF1558 ':FLOAT)
                              (INFO-REF1560 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1553 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1555 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF1557 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF1558 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1560 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1554 A) (S-REF1556 S)
                                            (WORK-REF1559 WORK))
      (%%CHEEQUB UPLO N-REF1553 A-REF1554 LDA-REF1555 S-REF1556 SCOND-REF1557
       AMAX-REF1558 WORK-REF1559 INFO-REF1560))))

(CFFI:DEFCFUN ("cheev_" %%CHEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEV (JOBZ UPLO N A LDA W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1563 ':INT32) (LDA-REF1565 ':INT32)
                              (LWORK-REF1568 ':INT32) (INFO-REF1570 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1563 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1565 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1568 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1570 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1564 A) (W-REF1566 W)
                                            (WORK-REF1567 WORK)
                                            (RWORK-REF1569 RWORK))
      (%%CHEEV JOBZ UPLO N-REF1563 A-REF1564 LDA-REF1565 W-REF1566 WORK-REF1567
       LWORK-REF1568 RWORK-REF1569 INFO-REF1570))))

(CFFI:DEFCFUN ("cheev_2stage_" %%CHEEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEV_2STAGE (JOBZ UPLO N A LDA W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1573 ':INT32) (LDA-REF1575 ':INT32)
                              (LWORK-REF1578 ':INT32) (INFO-REF1580 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1573 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1575 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1578 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1580 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1574 A) (W-REF1576 W)
                                            (WORK-REF1577 WORK)
                                            (RWORK-REF1579 RWORK))
      (%%CHEEV_2STAGE JOBZ UPLO N-REF1573 A-REF1574 LDA-REF1575 W-REF1576
       WORK-REF1577 LWORK-REF1578 RWORK-REF1579 INFO-REF1580))))

(CFFI:DEFCFUN ("cheevd_" %%CHEEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEVD
                   (JOBZ UPLO N A LDA W WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1583 ':INT32) (LDA-REF1585 ':INT32)
                              (LWORK-REF1588 ':INT32) (LRWORK-REF1590 ':INT32)
                              (LIWORK-REF1592 ':INT32) (INFO-REF1593 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1583 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1585 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1588 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1590 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1592 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1593 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1584 A) (W-REF1586 W)
                                            (WORK-REF1587 WORK)
                                            (RWORK-REF1589 RWORK)
                                            (IWORK-REF1591 IWORK))
      (%%CHEEVD JOBZ UPLO N-REF1583 A-REF1584 LDA-REF1585 W-REF1586
       WORK-REF1587 LWORK-REF1588 RWORK-REF1589 LRWORK-REF1590 IWORK-REF1591
       LIWORK-REF1592 INFO-REF1593))))

(CFFI:DEFCFUN ("cheevd_2stage_" %%CHEEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEVD_2STAGE
                   (JOBZ UPLO N A LDA W WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1596 ':INT32) (LDA-REF1598 ':INT32)
                              (LWORK-REF1601 ':INT32) (LRWORK-REF1603 ':INT32)
                              (LIWORK-REF1605 ':INT32) (INFO-REF1606 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1596 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1598 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1601 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1603 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1605 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1606 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1597 A) (W-REF1599 W)
                                            (WORK-REF1600 WORK)
                                            (RWORK-REF1602 RWORK)
                                            (IWORK-REF1604 IWORK))
      (%%CHEEVD_2STAGE JOBZ UPLO N-REF1596 A-REF1597 LDA-REF1598 W-REF1599
       WORK-REF1600 LWORK-REF1601 RWORK-REF1602 LRWORK-REF1603 IWORK-REF1604
       LIWORK-REF1605 INFO-REF1606))))

(CFFI:DEFCFUN ("cheevr_" %%CHEEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEVR
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1610 ':INT32) (LDA-REF1612 ':INT32)
                              (VL-REF1613 ':FLOAT) (VU-REF1614 ':FLOAT)
                              (IL-REF1615 ':INT32) (IU-REF1616 ':INT32)
                              (ABSTOL-REF1617 ':FLOAT) (M-REF1618 ':INT32)
                              (LDZ-REF1621 ':INT32) (LWORK-REF1624 ':INT32)
                              (LRWORK-REF1626 ':INT32) (LIWORK-REF1628 ':INT32)
                              (INFO-REF1629 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1610 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1612 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1613 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1614 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1615 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1616 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1617 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1618 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1621 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1624 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1626 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1628 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1629 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1611 A) (W-REF1619 W)
                                            (Z-REF1620 Z)
                                            (ISUPPZ-REF1622 ISUPPZ)
                                            (WORK-REF1623 WORK)
                                            (RWORK-REF1625 RWORK)
                                            (IWORK-REF1627 IWORK))
      (%%CHEEVR JOBZ RANGE UPLO N-REF1610 A-REF1611 LDA-REF1612 VL-REF1613
       VU-REF1614 IL-REF1615 IU-REF1616 ABSTOL-REF1617 M-REF1618 W-REF1619
       Z-REF1620 LDZ-REF1621 ISUPPZ-REF1622 WORK-REF1623 LWORK-REF1624
       RWORK-REF1625 LRWORK-REF1626 IWORK-REF1627 LIWORK-REF1628
       INFO-REF1629))))

(CFFI:DEFCFUN ("cheevr_2stage_" %%CHEEVR_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEVR_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVR_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1633 ':INT32) (LDA-REF1635 ':INT32)
                              (VL-REF1636 ':FLOAT) (VU-REF1637 ':FLOAT)
                              (IL-REF1638 ':INT32) (IU-REF1639 ':INT32)
                              (ABSTOL-REF1640 ':FLOAT) (M-REF1641 ':INT32)
                              (LDZ-REF1644 ':INT32) (LWORK-REF1647 ':INT32)
                              (LRWORK-REF1649 ':INT32) (LIWORK-REF1651 ':INT32)
                              (INFO-REF1652 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1633 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1635 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1636 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1637 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1638 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1639 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1640 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1641 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1644 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1647 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1649 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1651 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1652 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1634 A) (W-REF1642 W)
                                            (Z-REF1643 Z)
                                            (ISUPPZ-REF1645 ISUPPZ)
                                            (WORK-REF1646 WORK)
                                            (RWORK-REF1648 RWORK)
                                            (IWORK-REF1650 IWORK))
      (%%CHEEVR_2STAGE JOBZ RANGE UPLO N-REF1633 A-REF1634 LDA-REF1635
       VL-REF1636 VU-REF1637 IL-REF1638 IU-REF1639 ABSTOL-REF1640 M-REF1641
       W-REF1642 Z-REF1643 LDZ-REF1644 ISUPPZ-REF1645 WORK-REF1646
       LWORK-REF1647 RWORK-REF1648 LRWORK-REF1649 IWORK-REF1650 LIWORK-REF1651
       INFO-REF1652))))

(CFFI:DEFCFUN ("cheevx_" %%CHEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEVX
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1656 ':INT32) (LDA-REF1658 ':INT32)
                              (VL-REF1659 ':FLOAT) (VU-REF1660 ':FLOAT)
                              (IL-REF1661 ':INT32) (IU-REF1662 ':INT32)
                              (ABSTOL-REF1663 ':FLOAT) (M-REF1664 ':INT32)
                              (LDZ-REF1667 ':INT32) (LWORK-REF1669 ':INT32)
                              (INFO-REF1673 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1656 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1658 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1659 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1660 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1661 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1662 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1663 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1664 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1667 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1669 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1673 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1657 A) (W-REF1665 W)
                                            (Z-REF1666 Z) (WORK-REF1668 WORK)
                                            (RWORK-REF1670 RWORK)
                                            (IWORK-REF1671 IWORK)
                                            (IFAIL-REF1672 IFAIL))
      (%%CHEEVX JOBZ RANGE UPLO N-REF1656 A-REF1657 LDA-REF1658 VL-REF1659
       VU-REF1660 IL-REF1661 IU-REF1662 ABSTOL-REF1663 M-REF1664 W-REF1665
       Z-REF1666 LDZ-REF1667 WORK-REF1668 LWORK-REF1669 RWORK-REF1670
       IWORK-REF1671 IFAIL-REF1672 INFO-REF1673))))

(CFFI:DEFCFUN ("cheevx_2stage_" %%CHEEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEEVX_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1677 ':INT32) (LDA-REF1679 ':INT32)
                              (VL-REF1680 ':FLOAT) (VU-REF1681 ':FLOAT)
                              (IL-REF1682 ':INT32) (IU-REF1683 ':INT32)
                              (ABSTOL-REF1684 ':FLOAT) (M-REF1685 ':INT32)
                              (LDZ-REF1688 ':INT32) (LWORK-REF1690 ':INT32)
                              (INFO-REF1694 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1677 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1679 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1680 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1681 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1682 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1683 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1684 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1685 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1688 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1690 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1694 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1678 A) (W-REF1686 W)
                                            (Z-REF1687 Z) (WORK-REF1689 WORK)
                                            (RWORK-REF1691 RWORK)
                                            (IWORK-REF1692 IWORK)
                                            (IFAIL-REF1693 IFAIL))
      (%%CHEEVX_2STAGE JOBZ RANGE UPLO N-REF1677 A-REF1678 LDA-REF1679
       VL-REF1680 VU-REF1681 IL-REF1682 IU-REF1683 ABSTOL-REF1684 M-REF1685
       W-REF1686 Z-REF1687 LDZ-REF1688 WORK-REF1689 LWORK-REF1690 RWORK-REF1691
       IWORK-REF1692 IFAIL-REF1693 INFO-REF1694))))

(CFFI:DEFCFUN ("chegs2_" %%CHEGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEGS2 (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1695 ':INT32) (N-REF1697 ':INT32)
                              (LDA-REF1699 ':INT32) (LDB-REF1701 ':INT32)
                              (INFO-REF1702 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1695 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1697 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1699 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1701 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1702 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1698 A) (B-REF1700 B))
      (%%CHEGS2 ITYPE-REF1695 UPLO N-REF1697 A-REF1698 LDA-REF1699 B-REF1700
       LDB-REF1701 INFO-REF1702))))

(CFFI:DEFCFUN ("chegst_" %%CHEGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEGST (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1703 ':INT32) (N-REF1705 ':INT32)
                              (LDA-REF1707 ':INT32) (LDB-REF1709 ':INT32)
                              (INFO-REF1710 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1703 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1705 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1707 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1709 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1710 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1706 A) (B-REF1708 B))
      (%%CHEGST ITYPE-REF1703 UPLO N-REF1705 A-REF1706 LDA-REF1707 B-REF1708
       LDB-REF1709 INFO-REF1710))))

(CFFI:DEFCFUN ("chegv_" %%CHEGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEGV
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1711 ':INT32) (N-REF1714 ':INT32)
                              (LDA-REF1716 ':INT32) (LDB-REF1718 ':INT32)
                              (LWORK-REF1721 ':INT32) (INFO-REF1723 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1711 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1716 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1718 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1721 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1723 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1715 A) (B-REF1717 B)
                                            (W-REF1719 W) (WORK-REF1720 WORK)
                                            (RWORK-REF1722 RWORK))
      (%%CHEGV ITYPE-REF1711 JOBZ UPLO N-REF1714 A-REF1715 LDA-REF1716
       B-REF1717 LDB-REF1718 W-REF1719 WORK-REF1720 LWORK-REF1721 RWORK-REF1722
       INFO-REF1723))))

(CFFI:DEFCFUN ("chegv_2stage_" %%CHEGV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEGV_2STAGE
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGV_2STAGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1724 ':INT32) (N-REF1727 ':INT32)
                              (LDA-REF1729 ':INT32) (LDB-REF1731 ':INT32)
                              (LWORK-REF1734 ':INT32) (INFO-REF1736 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1724 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1727 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1729 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1731 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1734 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1736 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1728 A) (B-REF1730 B)
                                            (W-REF1732 W) (WORK-REF1733 WORK)
                                            (RWORK-REF1735 RWORK))
      (%%CHEGV_2STAGE ITYPE-REF1724 JOBZ UPLO N-REF1727 A-REF1728 LDA-REF1729
       B-REF1730 LDB-REF1731 W-REF1732 WORK-REF1733 LWORK-REF1734 RWORK-REF1735
       INFO-REF1736))))

(CFFI:DEFCFUN ("chegvd_" %%CHEGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEGVD
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1737 ':INT32) (N-REF1740 ':INT32)
                              (LDA-REF1742 ':INT32) (LDB-REF1744 ':INT32)
                              (LWORK-REF1747 ':INT32) (LRWORK-REF1749 ':INT32)
                              (LIWORK-REF1751 ':INT32) (INFO-REF1752 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1737 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1740 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1742 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1744 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1747 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1749 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1751 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1752 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1741 A) (B-REF1743 B)
                                            (W-REF1745 W) (WORK-REF1746 WORK)
                                            (RWORK-REF1748 RWORK)
                                            (IWORK-REF1750 IWORK))
      (%%CHEGVD ITYPE-REF1737 JOBZ UPLO N-REF1740 A-REF1741 LDA-REF1742
       B-REF1743 LDB-REF1744 W-REF1745 WORK-REF1746 LWORK-REF1747 RWORK-REF1748
       LRWORK-REF1749 IWORK-REF1750 LIWORK-REF1751 INFO-REF1752))))

(CFFI:DEFCFUN ("chegvx_" %%CHEGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHEGVX
                   (ITYPE JOBZ RANGE UPLO N A LDA B LDB VL VU IL IU ABSTOL M W
                    Z LDZ WORK LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1753 ':INT32) (N-REF1757 ':INT32)
                              (LDA-REF1759 ':INT32) (LDB-REF1761 ':INT32)
                              (VL-REF1762 ':FLOAT) (VU-REF1763 ':FLOAT)
                              (IL-REF1764 ':INT32) (IU-REF1765 ':INT32)
                              (ABSTOL-REF1766 ':FLOAT) (M-REF1767 ':INT32)
                              (LDZ-REF1770 ':INT32) (LWORK-REF1772 ':INT32)
                              (INFO-REF1776 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1753 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1757 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1759 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1761 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1762 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1763 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1764 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1765 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1766 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1767 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1770 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1772 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1776 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1758 A) (B-REF1760 B)
                                            (W-REF1768 W) (Z-REF1769 Z)
                                            (WORK-REF1771 WORK)
                                            (RWORK-REF1773 RWORK)
                                            (IWORK-REF1774 IWORK)
                                            (IFAIL-REF1775 IFAIL))
      (%%CHEGVX ITYPE-REF1753 JOBZ RANGE UPLO N-REF1757 A-REF1758 LDA-REF1759
       B-REF1760 LDB-REF1761 VL-REF1762 VU-REF1763 IL-REF1764 IU-REF1765
       ABSTOL-REF1766 M-REF1767 W-REF1768 Z-REF1769 LDZ-REF1770 WORK-REF1771
       LWORK-REF1772 RWORK-REF1773 IWORK-REF1774 IFAIL-REF1775 INFO-REF1776))))

(CFFI:DEFCFUN ("cherfs_" %%CHERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHERFS
                   (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHERFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1778 ':INT32) (NRHS-REF1779 ':INT32)
                              (LDA-REF1781 ':INT32) (LDAF-REF1783 ':INT32)
                              (LDB-REF1786 ':INT32) (LDX-REF1788 ':INT32)
                              (INFO-REF1793 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1778 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1779 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1781 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1783 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1786 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1788 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1793 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1780 A) (AF-REF1782 AF)
                                            (IPIV-REF1784 IPIV) (B-REF1785 B)
                                            (X-REF1787 X) (FERR-REF1789 FERR)
                                            (BERR-REF1790 BERR)
                                            (WORK-REF1791 WORK)
                                            (RWORK-REF1792 RWORK))
      (%%CHERFS UPLO N-REF1778 NRHS-REF1779 A-REF1780 LDA-REF1781 AF-REF1782
       LDAF-REF1783 IPIV-REF1784 B-REF1785 LDB-REF1786 X-REF1787 LDX-REF1788
       FERR-REF1789 BERR-REF1790 WORK-REF1791 RWORK-REF1792 INFO-REF1793))))

(CFFI:DEFCFUN ("cherfsx_" %%CHERFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHERFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHERFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1796 ':INT32) (NRHS-REF1797 ':INT32)
                              (LDA-REF1799 ':INT32) (LDAF-REF1801 ':INT32)
                              (LDB-REF1805 ':INT32) (LDX-REF1807 ':INT32)
                              (RCOND-REF1808 ':FLOAT)
                              (N_ERR_BNDS-REF1810 ':INT32)
                              (NPARAMS-REF1813 ':INT32) (INFO-REF1817 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1796 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1797 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1799 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1801 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1805 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1807 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1808 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF1810 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF1813 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1817 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1798 A) (AF-REF1800 AF)
                                            (IPIV-REF1802 IPIV) (S-REF1803 S)
                                            (B-REF1804 B) (X-REF1806 X)
                                            (BERR-REF1809 BERR)
                                            (ERR_BNDS_NORM-REF1811
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF1812
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF1814 PARAMS)
                                            (WORK-REF1815 WORK)
                                            (RWORK-REF1816 RWORK))
      (%%CHERFSX UPLO EQUED N-REF1796 NRHS-REF1797 A-REF1798 LDA-REF1799
       AF-REF1800 LDAF-REF1801 IPIV-REF1802 S-REF1803 B-REF1804 LDB-REF1805
       X-REF1806 LDX-REF1807 RCOND-REF1808 BERR-REF1809 N_ERR_BNDS-REF1810
       ERR_BNDS_NORM-REF1811 ERR_BNDS_COMP-REF1812 NPARAMS-REF1813
       PARAMS-REF1814 WORK-REF1815 RWORK-REF1816 INFO-REF1817))))

(CFFI:DEFCFUN ("chesv_" %%CHESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESV (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1819 ':INT32) (NRHS-REF1820 ':INT32)
                              (LDA-REF1822 ':INT32) (LDB-REF1825 ':INT32)
                              (LWORK-REF1827 ':INT32) (INFO-REF1828 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1819 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1820 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1822 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1825 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1827 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1828 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1821 A) (IPIV-REF1823 IPIV)
                                            (B-REF1824 B) (WORK-REF1826 WORK))
      (%%CHESV UPLO N-REF1819 NRHS-REF1820 A-REF1821 LDA-REF1822 IPIV-REF1823
       B-REF1824 LDB-REF1825 WORK-REF1826 LWORK-REF1827 INFO-REF1828))))

(CFFI:DEFCFUN ("chesv_aa_" %%CHESV_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESV_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1830 ':INT32) (NRHS-REF1831 ':INT32)
                              (LDA-REF1833 ':INT32) (LDB-REF1836 ':INT32)
                              (LWORK-REF1838 ':INT32) (INFO-REF1839 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1830 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1831 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1833 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1836 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1838 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1839 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1832 A) (IPIV-REF1834 IPIV)
                                            (B-REF1835 B) (WORK-REF1837 WORK))
      (%%CHESV_AA UPLO N-REF1830 NRHS-REF1831 A-REF1832 LDA-REF1833
       IPIV-REF1834 B-REF1835 LDB-REF1836 WORK-REF1837 LWORK-REF1838
       INFO-REF1839))))

(CFFI:DEFCFUN ("chesv_aa_2stage_" %%CHESV_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESV_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1841 ':INT32) (NRHS-REF1842 ':INT32)
                              (LDA-REF1844 ':INT32) (LTB-REF1846 ':INT32)
                              (LDB-REF1850 ':INT32) (LWORK-REF1852 ':INT32)
                              (INFO-REF1853 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1841 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1842 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1844 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF1846 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1850 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1852 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1853 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1843 A) (TB-REF1845 TB)
                                            (IPIV-REF1847 IPIV)
                                            (IPIV2-REF1848 IPIV2) (B-REF1849 B)
                                            (WORK-REF1851 WORK))
      (%%CHESV_AA_2STAGE UPLO N-REF1841 NRHS-REF1842 A-REF1843 LDA-REF1844
       TB-REF1845 LTB-REF1846 IPIV-REF1847 IPIV2-REF1848 B-REF1849 LDB-REF1850
       WORK-REF1851 LWORK-REF1852 INFO-REF1853))))

(CFFI:DEFCFUN ("chesv_rk_" %%CHESV_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESV_RK (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1855 ':INT32) (NRHS-REF1856 ':INT32)
                              (LDA-REF1858 ':INT32) (LDB-REF1862 ':INT32)
                              (LWORK-REF1864 ':INT32) (INFO-REF1865 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1855 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1856 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1858 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1862 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1864 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1865 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1857 A) (E-REF1859 E)
                                            (IPIV-REF1860 IPIV) (B-REF1861 B)
                                            (WORK-REF1863 WORK))
      (%%CHESV_RK UPLO N-REF1855 NRHS-REF1856 A-REF1857 LDA-REF1858 E-REF1859
       IPIV-REF1860 B-REF1861 LDB-REF1862 WORK-REF1863 LWORK-REF1864
       INFO-REF1865))))

(CFFI:DEFCFUN ("chesv_rook_" %%CHESV_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESV_ROOK (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESV_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1867 ':INT32) (NRHS-REF1868 ':INT32)
                              (LDA-REF1870 ':INT32) (LDB-REF1873 ':INT32)
                              (LWORK-REF1875 ':INT32) (INFO-REF1876 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1867 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1868 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1870 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1873 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1875 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1876 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1869 A) (IPIV-REF1871 IPIV)
                                            (B-REF1872 B) (WORK-REF1874 WORK))
      (%%CHESV_ROOK UPLO N-REF1867 NRHS-REF1868 A-REF1869 LDA-REF1870
       IPIV-REF1871 B-REF1872 LDB-REF1873 WORK-REF1874 LWORK-REF1875
       INFO-REF1876))))

(CFFI:DEFCFUN ("chesvx_" %%CHESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESVX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR
                    BERR WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1879 ':INT32) (NRHS-REF1880 ':INT32)
                              (LDA-REF1882 ':INT32) (LDAF-REF1884 ':INT32)
                              (LDB-REF1887 ':INT32) (LDX-REF1889 ':INT32)
                              (RCOND-REF1890 ':FLOAT) (LWORK-REF1894 ':INT32)
                              (INFO-REF1896 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1879 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1880 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1882 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1884 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1887 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1889 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1890 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1894 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1896 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1881 A) (AF-REF1883 AF)
                                            (IPIV-REF1885 IPIV) (B-REF1886 B)
                                            (X-REF1888 X) (FERR-REF1891 FERR)
                                            (BERR-REF1892 BERR)
                                            (WORK-REF1893 WORK)
                                            (RWORK-REF1895 RWORK))
      (%%CHESVX FACT UPLO N-REF1879 NRHS-REF1880 A-REF1881 LDA-REF1882
       AF-REF1883 LDAF-REF1884 IPIV-REF1885 B-REF1886 LDB-REF1887 X-REF1888
       LDX-REF1889 RCOND-REF1890 FERR-REF1891 BERR-REF1892 WORK-REF1893
       LWORK-REF1894 RWORK-REF1895 INFO-REF1896))))

(CFFI:DEFCFUN ("chesvxx_" %%CHESVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHESVXX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1899 ':INT32) (NRHS-REF1900 ':INT32)
                              (LDA-REF1902 ':INT32) (LDAF-REF1904 ':INT32)
                              (LDB-REF1909 ':INT32) (LDX-REF1911 ':INT32)
                              (RCOND-REF1912 ':FLOAT) (RPVGRW-REF1913 ':FLOAT)
                              (N_ERR_BNDS-REF1915 ':INT32)
                              (NPARAMS-REF1918 ':INT32) (INFO-REF1922 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1899 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1900 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1902 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1904 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1909 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1911 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1912 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF1913 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF1915 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF1918 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1922 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1901 A) (AF-REF1903 AF)
                                            (IPIV-REF1905 IPIV) (S-REF1907 S)
                                            (B-REF1908 B) (X-REF1910 X)
                                            (BERR-REF1914 BERR)
                                            (ERR_BNDS_NORM-REF1916
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF1917
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF1919 PARAMS)
                                            (WORK-REF1920 WORK)
                                            (RWORK-REF1921 RWORK))
      (%%CHESVXX FACT UPLO N-REF1899 NRHS-REF1900 A-REF1901 LDA-REF1902
       AF-REF1903 LDAF-REF1904 IPIV-REF1905 EQUED S-REF1907 B-REF1908
       LDB-REF1909 X-REF1910 LDX-REF1911 RCOND-REF1912 RPVGRW-REF1913
       BERR-REF1914 N_ERR_BNDS-REF1915 ERR_BNDS_NORM-REF1916
       ERR_BNDS_COMP-REF1917 NPARAMS-REF1918 PARAMS-REF1919 WORK-REF1920
       RWORK-REF1921 INFO-REF1922))))

(CFFI:DEFCFUN ("cheswapr_" %%CHESWAPR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (I1 :POINTER)
  (I2 :POINTER))

(COMMON-LISP:DEFUN %CHESWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESWAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1924 ':INT32) (LDA-REF1926 ':INT32)
                              (I1-REF1927 ':INT32) (I2-REF1928 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1924 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1926 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF1927 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF1928 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1925 A))
      (%%CHESWAPR UPLO N-REF1924 A-REF1925 LDA-REF1926 I1-REF1927 I2-REF1928))))

(CFFI:DEFCFUN ("chetd2_" %%CHETD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETD2 (UPLO N A LDA D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETD2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1930 ':INT32) (LDA-REF1932 ':INT32)
                              (INFO-REF1936 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1930 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1932 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1936 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1931 A) (D-REF1933 D)
                                            (E-REF1934 E) (TAU-REF1935 TAU))
      (%%CHETD2 UPLO N-REF1930 A-REF1931 LDA-REF1932 D-REF1933 E-REF1934
       TAU-REF1935 INFO-REF1936))))

(CFFI:DEFCFUN ("chetf2_" %%CHETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1938 ':INT32) (LDA-REF1940 ':INT32)
                              (INFO-REF1942 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1938 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1940 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1942 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1939 A) (IPIV-REF1941 IPIV))
      (%%CHETF2 UPLO N-REF1938 A-REF1939 LDA-REF1940 IPIV-REF1941
       INFO-REF1942))))

(CFFI:DEFCFUN ("chetf2_rk_" %%CHETF2_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETF2_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1944 ':INT32) (LDA-REF1946 ':INT32)
                              (INFO-REF1949 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1944 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1946 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1949 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1945 A) (E-REF1947 E)
                                            (IPIV-REF1948 IPIV))
      (%%CHETF2_RK UPLO N-REF1944 A-REF1945 LDA-REF1946 E-REF1947 IPIV-REF1948
       INFO-REF1949))))

(CFFI:DEFCFUN ("chetf2_rook_" %%CHETF2_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETF2_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1951 ':INT32) (LDA-REF1953 ':INT32)
                              (INFO-REF1955 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1951 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1953 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1955 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1952 A) (IPIV-REF1954 IPIV))
      (%%CHETF2_ROOK UPLO N-REF1951 A-REF1952 LDA-REF1953 IPIV-REF1954
       INFO-REF1955))))

(CFFI:DEFCFUN ("chetrd_" %%CHETRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRD (UPLO N A LDA D E TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1957 ':INT32) (LDA-REF1959 ':INT32)
                              (LWORK-REF1964 ':INT32) (INFO-REF1965 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1957 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1959 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1964 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1965 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1958 A) (D-REF1960 D)
                                            (E-REF1961 E) (TAU-REF1962 TAU)
                                            (WORK-REF1963 WORK))
      (%%CHETRD UPLO N-REF1957 A-REF1958 LDA-REF1959 D-REF1960 E-REF1961
       TAU-REF1962 WORK-REF1963 LWORK-REF1964 INFO-REF1965))))

(CFFI:DEFCFUN ("chetrd_2stage_" %%CHETRD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (HOUS2 :POINTER)
  (LHOUS2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRD_2STAGE
                   (VECT UPLO N A LDA D E TAU HOUS2 LHOUS2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        HOUS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LHOUS2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1968 ':INT32) (LDA-REF1970 ':INT32)
                              (LHOUS2-REF1975 ':INT32) (LWORK-REF1977 ':INT32)
                              (INFO-REF1978 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1968 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1970 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF1975 :INT32) LHOUS2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1977 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1978 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1969 A) (D-REF1971 D)
                                            (E-REF1972 E) (TAU-REF1973 TAU)
                                            (HOUS2-REF1974 HOUS2)
                                            (WORK-REF1976 WORK))
      (%%CHETRD_2STAGE VECT UPLO N-REF1968 A-REF1969 LDA-REF1970 D-REF1971
       E-REF1972 TAU-REF1973 HOUS2-REF1974 LHOUS2-REF1975 WORK-REF1976
       LWORK-REF1977 INFO-REF1978))))

(CFFI:DEFCFUN ("chetrd_he2hb_" %%CHETRD_HE2HB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRD_HE2HB (UPLO N KD A LDA AB LDAB TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRD_HE2HB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1980 ':INT32) (KD-REF1981 ':INT32)
                              (LDA-REF1983 ':INT32) (LDAB-REF1985 ':INT32)
                              (LWORK-REF1988 ':INT32) (INFO-REF1989 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1980 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1981 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1983 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1985 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1988 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1989 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1982 A) (AB-REF1984 AB)
                                            (TAU-REF1986 TAU)
                                            (WORK-REF1987 WORK))
      (%%CHETRD_HE2HB UPLO N-REF1980 KD-REF1981 A-REF1982 LDA-REF1983
       AB-REF1984 LDAB-REF1985 TAU-REF1986 WORK-REF1987 LWORK-REF1988
       INFO-REF1989))))

(CFFI:DEFCFUN ("chetrf_" %%CHETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1991 ':INT32) (LDA-REF1993 ':INT32)
                              (LWORK-REF1996 ':INT32) (INFO-REF1997 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1991 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1993 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1996 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1997 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1992 A) (IPIV-REF1994 IPIV)
                                            (WORK-REF1995 WORK))
      (%%CHETRF UPLO N-REF1991 A-REF1992 LDA-REF1993 IPIV-REF1994 WORK-REF1995
       LWORK-REF1996 INFO-REF1997))))

(CFFI:DEFCFUN ("chetrf_aa_" %%CHETRF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1999 ':INT32) (LDA-REF2001 ':INT32)
                              (LWORK-REF2004 ':INT32) (INFO-REF2005 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1999 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2001 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2004 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2005 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2000 A) (IPIV-REF2002 IPIV)
                                            (WORK-REF2003 WORK))
      (%%CHETRF_AA UPLO N-REF1999 A-REF2000 LDA-REF2001 IPIV-REF2002
       WORK-REF2003 LWORK-REF2004 INFO-REF2005))))

(CFFI:DEFCFUN ("chetrf_aa_2stage_" %%CHETRF_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRF_AA_2STAGE
                   (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2007 ':INT32) (LDA-REF2009 ':INT32)
                              (LTB-REF2011 ':INT32) (LWORK-REF2015 ':INT32)
                              (INFO-REF2016 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2007 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2009 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF2011 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2015 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2016 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2008 A) (TB-REF2010 TB)
                                            (IPIV-REF2012 IPIV)
                                            (IPIV2-REF2013 IPIV2)
                                            (WORK-REF2014 WORK))
      (%%CHETRF_AA_2STAGE UPLO N-REF2007 A-REF2008 LDA-REF2009 TB-REF2010
       LTB-REF2011 IPIV-REF2012 IPIV2-REF2013 WORK-REF2014 LWORK-REF2015
       INFO-REF2016))))

(CFFI:DEFCFUN ("chetrf_rk_" %%CHETRF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2018 ':INT32) (LDA-REF2020 ':INT32)
                              (LWORK-REF2024 ':INT32) (INFO-REF2025 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2018 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2020 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2024 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2025 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2019 A) (E-REF2021 E)
                                            (IPIV-REF2022 IPIV)
                                            (WORK-REF2023 WORK))
      (%%CHETRF_RK UPLO N-REF2018 A-REF2019 LDA-REF2020 E-REF2021 IPIV-REF2022
       WORK-REF2023 LWORK-REF2024 INFO-REF2025))))

(CFFI:DEFCFUN ("chetrf_rook_" %%CHETRF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2027 ':INT32) (LDA-REF2029 ':INT32)
                              (LWORK-REF2032 ':INT32) (INFO-REF2033 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2027 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2029 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2032 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2033 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2028 A) (IPIV-REF2030 IPIV)
                                            (WORK-REF2031 WORK))
      (%%CHETRF_ROOK UPLO N-REF2027 A-REF2028 LDA-REF2029 IPIV-REF2030
       WORK-REF2031 LWORK-REF2032 INFO-REF2033))))

(CFFI:DEFCFUN ("chetri_" %%CHETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2035 ':INT32) (LDA-REF2037 ':INT32)
                              (INFO-REF2040 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2035 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2037 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2040 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2036 A) (IPIV-REF2038 IPIV)
                                            (WORK-REF2039 WORK))
      (%%CHETRI UPLO N-REF2035 A-REF2036 LDA-REF2037 IPIV-REF2038 WORK-REF2039
       INFO-REF2040))))

(CFFI:DEFCFUN ("chetri2_" %%CHETRI2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2042 ':INT32) (LDA-REF2044 ':INT32)
                              (LWORK-REF2047 ':INT32) (INFO-REF2048 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2042 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2044 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2047 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2048 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2043 A) (IPIV-REF2045 IPIV)
                                            (WORK-REF2046 WORK))
      (%%CHETRI2 UPLO N-REF2042 A-REF2043 LDA-REF2044 IPIV-REF2045 WORK-REF2046
       LWORK-REF2047 INFO-REF2048))))

(CFFI:DEFCFUN ("chetri2x_" %%CHETRI2X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI2X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2050 ':INT32) (LDA-REF2052 ':INT32)
                              (NB-REF2055 ':INT32) (INFO-REF2056 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2050 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2052 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2055 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2056 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2051 A) (IPIV-REF2053 IPIV)
                                            (WORK-REF2054 WORK))
      (%%CHETRI2X UPLO N-REF2050 A-REF2051 LDA-REF2052 IPIV-REF2053
       WORK-REF2054 NB-REF2055 INFO-REF2056))))

(CFFI:DEFCFUN ("chetri_3_" %%CHETRI_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2058 ':INT32) (LDA-REF2060 ':INT32)
                              (LWORK-REF2064 ':INT32) (INFO-REF2065 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2058 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2060 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2064 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2065 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2059 A) (E-REF2061 E)
                                            (IPIV-REF2062 IPIV)
                                            (WORK-REF2063 WORK))
      (%%CHETRI_3 UPLO N-REF2058 A-REF2059 LDA-REF2060 E-REF2061 IPIV-REF2062
       WORK-REF2063 LWORK-REF2064 INFO-REF2065))))

(CFFI:DEFCFUN ("chetri_3x_" %%CHETRI_3X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI_3X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2067 ':INT32) (LDA-REF2069 ':INT32)
                              (NB-REF2073 ':INT32) (INFO-REF2074 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2067 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2069 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2073 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2074 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2068 A) (E-REF2070 E)
                                            (IPIV-REF2071 IPIV)
                                            (WORK-REF2072 WORK))
      (%%CHETRI_3X UPLO N-REF2067 A-REF2068 LDA-REF2069 E-REF2070 IPIV-REF2071
       WORK-REF2072 NB-REF2073 INFO-REF2074))))

(CFFI:DEFCFUN ("chetri_rook_" %%CHETRI_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2076 ':INT32) (LDA-REF2078 ':INT32)
                              (INFO-REF2081 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2076 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2078 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2081 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2077 A) (IPIV-REF2079 IPIV)
                                            (WORK-REF2080 WORK))
      (%%CHETRI_ROOK UPLO N-REF2076 A-REF2077 LDA-REF2078 IPIV-REF2079
       WORK-REF2080 INFO-REF2081))))

(CFFI:DEFCFUN ("chetrs_" %%CHETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2083 ':INT32) (NRHS-REF2084 ':INT32)
                              (LDA-REF2086 ':INT32) (LDB-REF2089 ':INT32)
                              (INFO-REF2090 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2083 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2084 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2086 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2089 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2090 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2085 A) (IPIV-REF2087 IPIV)
                                            (B-REF2088 B))
      (%%CHETRS UPLO N-REF2083 NRHS-REF2084 A-REF2085 LDA-REF2086 IPIV-REF2087
       B-REF2088 LDB-REF2089 INFO-REF2090))))

(CFFI:DEFCFUN ("chetrs2_" %%CHETRS2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2092 ':INT32) (NRHS-REF2093 ':INT32)
                              (LDA-REF2095 ':INT32) (LDB-REF2098 ':INT32)
                              (INFO-REF2100 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2092 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2093 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2095 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2098 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2100 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2094 A) (IPIV-REF2096 IPIV)
                                            (B-REF2097 B) (WORK-REF2099 WORK))
      (%%CHETRS2 UPLO N-REF2092 NRHS-REF2093 A-REF2094 LDA-REF2095 IPIV-REF2096
       B-REF2097 LDB-REF2098 WORK-REF2099 INFO-REF2100))))

(CFFI:DEFCFUN ("chetrs_3_" %%CHETRS_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2102 ':INT32) (NRHS-REF2103 ':INT32)
                              (LDA-REF2105 ':INT32) (LDB-REF2109 ':INT32)
                              (INFO-REF2110 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2102 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2103 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2105 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2109 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2110 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2104 A) (E-REF2106 E)
                                            (IPIV-REF2107 IPIV) (B-REF2108 B))
      (%%CHETRS_3 UPLO N-REF2102 NRHS-REF2103 A-REF2104 LDA-REF2105 E-REF2106
       IPIV-REF2107 B-REF2108 LDB-REF2109 INFO-REF2110))))

(CFFI:DEFCFUN ("chetrs_aa_" %%CHETRS_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRS_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2112 ':INT32) (NRHS-REF2113 ':INT32)
                              (LDA-REF2115 ':INT32) (LDB-REF2118 ':INT32)
                              (LWORK-REF2120 ':INT32) (INFO-REF2121 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2112 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2113 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2115 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2118 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2120 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2121 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2114 A) (IPIV-REF2116 IPIV)
                                            (B-REF2117 B) (WORK-REF2119 WORK))
      (%%CHETRS_AA UPLO N-REF2112 NRHS-REF2113 A-REF2114 LDA-REF2115
       IPIV-REF2116 B-REF2117 LDB-REF2118 WORK-REF2119 LWORK-REF2120
       INFO-REF2121))))

(CFFI:DEFCFUN ("chetrs_aa_2stage_" %%CHETRS_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRS_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2123 ':INT32) (NRHS-REF2124 ':INT32)
                              (LDA-REF2126 ':INT32) (LTB-REF2128 ':INT32)
                              (LDB-REF2132 ':INT32) (INFO-REF2133 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2123 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2124 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2126 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF2128 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2132 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2133 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2125 A) (TB-REF2127 TB)
                                            (IPIV-REF2129 IPIV)
                                            (IPIV2-REF2130 IPIV2) (B-REF2131 B))
      (%%CHETRS_AA_2STAGE UPLO N-REF2123 NRHS-REF2124 A-REF2125 LDA-REF2126
       TB-REF2127 LTB-REF2128 IPIV-REF2129 IPIV2-REF2130 B-REF2131 LDB-REF2132
       INFO-REF2133))))

(CFFI:DEFCFUN ("chetrs_rook_" %%CHETRS_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHETRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2135 ':INT32) (NRHS-REF2136 ':INT32)
                              (LDA-REF2138 ':INT32) (LDB-REF2141 ':INT32)
                              (INFO-REF2142 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2135 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2136 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2138 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2141 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2142 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2137 A) (IPIV-REF2139 IPIV)
                                            (B-REF2140 B))
      (%%CHETRS_ROOK UPLO N-REF2135 NRHS-REF2136 A-REF2137 LDA-REF2138
       IPIV-REF2139 B-REF2140 LDB-REF2141 INFO-REF2142))))

(CFFI:DEFCFUN ("chfrk_" %%CHFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %CHFRK (TRANSR UPLO TRANS N K ALPHA A LDA BETA C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHFRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2146 ':INT32) (K-REF2147 ':INT32)
                              (ALPHA-REF2148 ':FLOAT) (LDA-REF2150 ':INT32)
                              (BETA-REF2151 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2146 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2147 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2148 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2150 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2151 :FLOAT) BETA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2149 A) (C-REF2152 C))
      (%%CHFRK TRANSR UPLO TRANS N-REF2146 K-REF2147 ALPHA-REF2148 A-REF2149
       LDA-REF2150 BETA-REF2151 C-REF2152))))

(CFFI:DEFCFUN ("chgeqz_" %%CHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHGEQZ
                   (JOB COMPQ COMPZ N ILO IHI H LDH T LDT ALPHA BETA Q LDQ Z
                    LDZ WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHGEQZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2156 ':INT32) (ILO-REF2157 ':INT32)
                              (IHI-REF2158 ':INT32) (LDH-REF2160 ':INT32)
                              (LDT-REF2162 ':INT32) (LDQ-REF2166 ':INT32)
                              (LDZ-REF2168 ':INT32) (LWORK-REF2170 ':INT32)
                              (INFO-REF2172 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2156 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2157 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2158 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2160 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF2162 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2166 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2168 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2170 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2172 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2159 H) (T-REF2161 T)
                                            (ALPHA-REF2163 ALPHA)
                                            (BETA-REF2164 BETA) (Q-REF2165 Q)
                                            (Z-REF2167 Z) (WORK-REF2169 WORK)
                                            (RWORK-REF2171 RWORK))
      (%%CHGEQZ JOB COMPQ COMPZ N-REF2156 ILO-REF2157 IHI-REF2158 H-REF2159
       LDH-REF2160 T-REF2161 LDT-REF2162 ALPHA-REF2163 BETA-REF2164 Q-REF2165
       LDQ-REF2166 Z-REF2167 LDZ-REF2168 WORK-REF2169 LWORK-REF2170
       RWORK-REF2171 INFO-REF2172))))

(CFFI:DEFCFUN ("chla_transtype_" %%CHLA_TRANSTYPE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :STRING
  (TRANS :POINTER))

(COMMON-LISP:DEFUN %CHLA_TRANSTYPE (TRANS)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHLA_TRANSTYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF2173 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF2173 :INT32) TRANS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CHLA_TRANSTYPE TRANS-REF2173))))

(CFFI:DEFCFUN ("chpcon_" %%CHPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPCON (UPLO N AP IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2175 ':INT32) (ANORM-REF2178 ':FLOAT)
                              (RCOND-REF2179 ':FLOAT) (INFO-REF2181 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2175 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF2178 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2179 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2181 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2176 AP) (IPIV-REF2177 IPIV)
                                            (WORK-REF2180 WORK))
      (%%CHPCON UPLO N-REF2175 AP-REF2176 IPIV-REF2177 ANORM-REF2178
       RCOND-REF2179 WORK-REF2180 INFO-REF2181))))

(CFFI:DEFCFUN ("chpev_" %%CHPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPEV (JOBZ UPLO N AP W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2184 ':INT32) (LDZ-REF2188 ':INT32)
                              (INFO-REF2191 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2184 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2188 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2191 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2185 AP) (W-REF2186 W)
                                            (Z-REF2187 Z) (WORK-REF2189 WORK)
                                            (RWORK-REF2190 RWORK))
      (%%CHPEV JOBZ UPLO N-REF2184 AP-REF2185 W-REF2186 Z-REF2187 LDZ-REF2188
       WORK-REF2189 RWORK-REF2190 INFO-REF2191))))

(CFFI:DEFCFUN ("chpevd_" %%CHPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPEVD
                   (JOBZ UPLO N AP W Z LDZ WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2194 ':INT32) (LDZ-REF2198 ':INT32)
                              (LWORK-REF2200 ':INT32) (LRWORK-REF2202 ':INT32)
                              (LIWORK-REF2204 ':INT32) (INFO-REF2205 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2194 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2198 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2200 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2202 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2204 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2205 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2195 AP) (W-REF2196 W)
                                            (Z-REF2197 Z) (WORK-REF2199 WORK)
                                            (RWORK-REF2201 RWORK)
                                            (IWORK-REF2203 IWORK))
      (%%CHPEVD JOBZ UPLO N-REF2194 AP-REF2195 W-REF2196 Z-REF2197 LDZ-REF2198
       WORK-REF2199 LWORK-REF2200 RWORK-REF2201 LRWORK-REF2202 IWORK-REF2203
       LIWORK-REF2204 INFO-REF2205))))

(CFFI:DEFCFUN ("chpevx_" %%CHPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPEVX
                   (JOBZ RANGE UPLO N AP VL VU IL IU ABSTOL M W Z LDZ WORK
                    RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2209 ':INT32) (VL-REF2211 ':FLOAT)
                              (VU-REF2212 ':FLOAT) (IL-REF2213 ':INT32)
                              (IU-REF2214 ':INT32) (ABSTOL-REF2215 ':FLOAT)
                              (M-REF2216 ':INT32) (LDZ-REF2219 ':INT32)
                              (INFO-REF2224 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2209 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2211 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2212 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2213 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2214 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF2215 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2216 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2219 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2224 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2210 AP) (W-REF2217 W)
                                            (Z-REF2218 Z) (WORK-REF2220 WORK)
                                            (RWORK-REF2221 RWORK)
                                            (IWORK-REF2222 IWORK)
                                            (IFAIL-REF2223 IFAIL))
      (%%CHPEVX JOBZ RANGE UPLO N-REF2209 AP-REF2210 VL-REF2211 VU-REF2212
       IL-REF2213 IU-REF2214 ABSTOL-REF2215 M-REF2216 W-REF2217 Z-REF2218
       LDZ-REF2219 WORK-REF2220 RWORK-REF2221 IWORK-REF2222 IFAIL-REF2223
       INFO-REF2224))))

(CFFI:DEFCFUN ("chpgst_" %%CHPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPGST (ITYPE UPLO N AP BP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2225 ':INT32) (N-REF2227 ':INT32)
                              (INFO-REF2230 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2225 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2227 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2230 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2228 AP) (BP-REF2229 BP))
      (%%CHPGST ITYPE-REF2225 UPLO N-REF2227 AP-REF2228 BP-REF2229
       INFO-REF2230))))

(CFFI:DEFCFUN ("chpgv_" %%CHPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPGV (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2231 ':INT32) (N-REF2234 ':INT32)
                              (LDZ-REF2239 ':INT32) (INFO-REF2242 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2231 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2234 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2239 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2242 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2235 AP) (BP-REF2236 BP)
                                            (W-REF2237 W) (Z-REF2238 Z)
                                            (WORK-REF2240 WORK)
                                            (RWORK-REF2241 RWORK))
      (%%CHPGV ITYPE-REF2231 JOBZ UPLO N-REF2234 AP-REF2235 BP-REF2236
       W-REF2237 Z-REF2238 LDZ-REF2239 WORK-REF2240 RWORK-REF2241
       INFO-REF2242))))

(CFFI:DEFCFUN ("chpgvd_" %%CHPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPGVD
                   (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2243 ':INT32) (N-REF2246 ':INT32)
                              (LDZ-REF2251 ':INT32) (LWORK-REF2253 ':INT32)
                              (LRWORK-REF2255 ':INT32) (LIWORK-REF2257 ':INT32)
                              (INFO-REF2258 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2243 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2246 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2251 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2253 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2255 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2257 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2258 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2247 AP) (BP-REF2248 BP)
                                            (W-REF2249 W) (Z-REF2250 Z)
                                            (WORK-REF2252 WORK)
                                            (RWORK-REF2254 RWORK)
                                            (IWORK-REF2256 IWORK))
      (%%CHPGVD ITYPE-REF2243 JOBZ UPLO N-REF2246 AP-REF2247 BP-REF2248
       W-REF2249 Z-REF2250 LDZ-REF2251 WORK-REF2252 LWORK-REF2253 RWORK-REF2254
       LRWORK-REF2255 IWORK-REF2256 LIWORK-REF2257 INFO-REF2258))))

(CFFI:DEFCFUN ("chpgvx_" %%CHPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPGVX
                   (ITYPE JOBZ RANGE UPLO N AP BP VL VU IL IU ABSTOL M W Z LDZ
                    WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2259 ':INT32) (N-REF2263 ':INT32)
                              (VL-REF2266 ':FLOAT) (VU-REF2267 ':FLOAT)
                              (IL-REF2268 ':INT32) (IU-REF2269 ':INT32)
                              (ABSTOL-REF2270 ':FLOAT) (M-REF2271 ':INT32)
                              (LDZ-REF2274 ':INT32) (INFO-REF2279 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2259 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2263 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2266 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2267 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2268 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2269 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF2270 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2271 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2274 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2279 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2264 AP) (BP-REF2265 BP)
                                            (W-REF2272 W) (Z-REF2273 Z)
                                            (WORK-REF2275 WORK)
                                            (RWORK-REF2276 RWORK)
                                            (IWORK-REF2277 IWORK)
                                            (IFAIL-REF2278 IFAIL))
      (%%CHPGVX ITYPE-REF2259 JOBZ RANGE UPLO N-REF2263 AP-REF2264 BP-REF2265
       VL-REF2266 VU-REF2267 IL-REF2268 IU-REF2269 ABSTOL-REF2270 M-REF2271
       W-REF2272 Z-REF2273 LDZ-REF2274 WORK-REF2275 RWORK-REF2276 IWORK-REF2277
       IFAIL-REF2278 INFO-REF2279))))

(CFFI:DEFCFUN ("chprfs_" %%CHPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPRFS
                   (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2281 ':INT32) (NRHS-REF2282 ':INT32)
                              (LDB-REF2287 ':INT32) (LDX-REF2289 ':INT32)
                              (INFO-REF2294 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2281 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2282 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2287 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2289 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2294 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2283 AP) (AFP-REF2284 AFP)
                                            (IPIV-REF2285 IPIV) (B-REF2286 B)
                                            (X-REF2288 X) (FERR-REF2290 FERR)
                                            (BERR-REF2291 BERR)
                                            (WORK-REF2292 WORK)
                                            (RWORK-REF2293 RWORK))
      (%%CHPRFS UPLO N-REF2281 NRHS-REF2282 AP-REF2283 AFP-REF2284 IPIV-REF2285
       B-REF2286 LDB-REF2287 X-REF2288 LDX-REF2289 FERR-REF2290 BERR-REF2291
       WORK-REF2292 RWORK-REF2293 INFO-REF2294))))

(CFFI:DEFCFUN ("chpsv_" %%CHPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2296 ':INT32) (NRHS-REF2297 ':INT32)
                              (LDB-REF2301 ':INT32) (INFO-REF2302 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2296 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2297 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2301 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2302 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2298 AP) (IPIV-REF2299 IPIV)
                                            (B-REF2300 B))
      (%%CHPSV UPLO N-REF2296 NRHS-REF2297 AP-REF2298 IPIV-REF2299 B-REF2300
       LDB-REF2301 INFO-REF2302))))

(CFFI:DEFCFUN ("chpsvx_" %%CHPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPSVX
                   (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2305 ':INT32) (NRHS-REF2306 ':INT32)
                              (LDB-REF2311 ':INT32) (LDX-REF2313 ':INT32)
                              (RCOND-REF2314 ':FLOAT) (INFO-REF2319 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2305 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2306 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2311 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2313 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2314 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2319 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2307 AP) (AFP-REF2308 AFP)
                                            (IPIV-REF2309 IPIV) (B-REF2310 B)
                                            (X-REF2312 X) (FERR-REF2315 FERR)
                                            (BERR-REF2316 BERR)
                                            (WORK-REF2317 WORK)
                                            (RWORK-REF2318 RWORK))
      (%%CHPSVX FACT UPLO N-REF2305 NRHS-REF2306 AP-REF2307 AFP-REF2308
       IPIV-REF2309 B-REF2310 LDB-REF2311 X-REF2312 LDX-REF2313 RCOND-REF2314
       FERR-REF2315 BERR-REF2316 WORK-REF2317 RWORK-REF2318 INFO-REF2319))))

(CFFI:DEFCFUN ("chptrd_" %%CHPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPTRD (UPLO N AP D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2321 ':INT32) (INFO-REF2326 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2321 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2326 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2322 AP) (D-REF2323 D)
                                            (E-REF2324 E) (TAU-REF2325 TAU))
      (%%CHPTRD UPLO N-REF2321 AP-REF2322 D-REF2323 E-REF2324 TAU-REF2325
       INFO-REF2326))))

(CFFI:DEFCFUN ("chptrf_" %%CHPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2328 ':INT32) (INFO-REF2331 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2328 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2331 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2329 AP) (IPIV-REF2330 IPIV))
      (%%CHPTRF UPLO N-REF2328 AP-REF2329 IPIV-REF2330 INFO-REF2331))))

(CFFI:DEFCFUN ("chptri_" %%CHPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2333 ':INT32) (INFO-REF2337 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2333 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2337 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2334 AP) (IPIV-REF2335 IPIV)
                                            (WORK-REF2336 WORK))
      (%%CHPTRI UPLO N-REF2333 AP-REF2334 IPIV-REF2335 WORK-REF2336
       INFO-REF2337))))

(CFFI:DEFCFUN ("chptrs_" %%CHPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2339 ':INT32) (NRHS-REF2340 ':INT32)
                              (LDB-REF2344 ':INT32) (INFO-REF2345 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2339 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2340 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2344 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2345 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2341 AP) (IPIV-REF2342 IPIV)
                                            (B-REF2343 B))
      (%%CHPTRS UPLO N-REF2339 NRHS-REF2340 AP-REF2341 IPIV-REF2342 B-REF2343
       LDB-REF2344 INFO-REF2345))))

(CFFI:DEFCFUN ("chsein_" %%CHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (EIGSRC :STRING)
  (INITV :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IFAILL :POINTER)
  (IFAILR :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHSEIN
                   (SIDE EIGSRC INITV SELECT N H LDH W VL LDVL VR LDVR MM M
                    WORK RWORK IFAILL IFAILR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHSEIN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EIGSRC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING INITV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2350 ':INT32) (LDH-REF2352 ':INT32)
                              (LDVL-REF2355 ':INT32) (LDVR-REF2357 ':INT32)
                              (MM-REF2358 ':INT32) (M-REF2359 ':INT32)
                              (INFO-REF2364 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2350 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2352 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF2355 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF2357 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF2358 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2359 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2364 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF2349 SELECT)
                                            (H-REF2351 H) (W-REF2353 W)
                                            (VL-REF2354 VL) (VR-REF2356 VR)
                                            (WORK-REF2360 WORK)
                                            (RWORK-REF2361 RWORK)
                                            (IFAILL-REF2362 IFAILL)
                                            (IFAILR-REF2363 IFAILR))
      (%%CHSEIN SIDE EIGSRC INITV SELECT-REF2349 N-REF2350 H-REF2351
       LDH-REF2352 W-REF2353 VL-REF2354 LDVL-REF2355 VR-REF2356 LDVR-REF2357
       MM-REF2358 M-REF2359 WORK-REF2360 RWORK-REF2361 IFAILL-REF2362
       IFAILR-REF2363 INFO-REF2364))))

(CFFI:DEFCFUN ("chseqr_" %%CHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CHSEQR (JOB COMPZ N ILO IHI H LDH W Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHSEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2367 ':INT32) (ILO-REF2368 ':INT32)
                              (IHI-REF2369 ':INT32) (LDH-REF2371 ':INT32)
                              (LDZ-REF2374 ':INT32) (LWORK-REF2376 ':INT32)
                              (INFO-REF2377 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2367 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2368 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2369 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2371 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2374 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2376 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2377 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2370 H) (W-REF2372 W)
                                            (Z-REF2373 Z) (WORK-REF2375 WORK))
      (%%CHSEQR JOB COMPZ N-REF2367 ILO-REF2368 IHI-REF2369 H-REF2370
       LDH-REF2371 W-REF2372 Z-REF2373 LDZ-REF2374 WORK-REF2375 LWORK-REF2376
       INFO-REF2377))))

(CFFI:DEFCFUN ("cla_gbamv_" %%CLA_GBAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CLA_GBAMV
                   (TRANS M N KL KU ALPHA AB LDAB X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF2378 ':INT32) (M-REF2379 ':INT32)
                              (N-REF2380 ':INT32) (KL-REF2381 ':INT32)
                              (KU-REF2382 ':INT32) (ALPHA-REF2383 ':FLOAT)
                              (LDAB-REF2385 ':INT32) (INCX-REF2387 ':INT32)
                              (BETA-REF2388 ':FLOAT) (INCY-REF2390 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF2378 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2379 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2380 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2381 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2382 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2383 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2385 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2387 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2388 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2390 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2384 AB) (X-REF2386 X)
                                            (Y-REF2389 Y))
      (%%CLA_GBAMV TRANS-REF2378 M-REF2379 N-REF2380 KL-REF2381 KU-REF2382
       ALPHA-REF2383 AB-REF2384 LDAB-REF2385 X-REF2386 INCX-REF2387
       BETA-REF2388 Y-REF2389 INCY-REF2390))))

(CFFI:DEFCFUN ("cla_gbrcond_c_" %%CLA_GBRCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_GBRCOND_C
                   (TRANS N KL KU AB LDAB AFB LDAFB IPIV C CAPPLY INFO WORK
                    RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBRCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2392 ':INT32) (KL-REF2393 ':INT32)
                              (KU-REF2394 ':INT32) (LDAB-REF2396 ':INT32)
                              (LDAFB-REF2398 ':INT32) (CAPPLY-REF2401 ':INT32)
                              (INFO-REF2402 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2392 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2393 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2394 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2396 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2398 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2401 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2402 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2395 AB) (AFB-REF2397 AFB)
                                            (IPIV-REF2399 IPIV) (C-REF2400 C)
                                            (WORK-REF2403 WORK)
                                            (RWORK-REF2404 RWORK))
      (%%CLA_GBRCOND_C TRANS N-REF2392 KL-REF2393 KU-REF2394 AB-REF2395
       LDAB-REF2396 AFB-REF2397 LDAFB-REF2398 IPIV-REF2399 C-REF2400
       CAPPLY-REF2401 INFO-REF2402 WORK-REF2403 RWORK-REF2404))))

(CFFI:DEFCFUN ("cla_gbrcond_x_" %%CLA_GBRCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_GBRCOND_X
                   (TRANS N KL KU AB LDAB AFB LDAFB IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBRCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2406 ':INT32) (KL-REF2407 ':INT32)
                              (KU-REF2408 ':INT32) (LDAB-REF2410 ':INT32)
                              (LDAFB-REF2412 ':INT32) (INFO-REF2415 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2406 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2407 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2408 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2410 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2412 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2415 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2409 AB) (AFB-REF2411 AFB)
                                            (IPIV-REF2413 IPIV) (X-REF2414 X)
                                            (WORK-REF2416 WORK)
                                            (RWORK-REF2417 RWORK))
      (%%CLA_GBRCOND_X TRANS N-REF2406 KL-REF2407 KU-REF2408 AB-REF2409
       LDAB-REF2410 AFB-REF2411 LDAFB-REF2412 IPIV-REF2413 X-REF2414
       INFO-REF2415 WORK-REF2416 RWORK-REF2417))))

(CFFI:DEFCFUN ("cla_gbrfsx_extended_" %%CLA_GBRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLA_GBRFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N KL KU NRHS AB LDAB AFB LDAFB IPIV
                    COLEQU C B LDB Y LDY BERR_OUT N_NORMS ERR_BNDS_NORM
                    ERR_BNDS_COMP RES AYB DY Y_TAIL RCOND ITHRESH RTHRESH DZ_UB
                    IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2418 ':INT32)
                              (TRANS_TYPE-REF2419 ':INT32) (N-REF2420 ':INT32)
                              (KL-REF2421 ':INT32) (KU-REF2422 ':INT32)
                              (NRHS-REF2423 ':INT32) (LDAB-REF2425 ':INT32)
                              (LDAFB-REF2427 ':INT32) (COLEQU-REF2429 ':INT32)
                              (LDB-REF2432 ':INT32) (LDY-REF2434 ':INT32)
                              (N_NORMS-REF2436 ':INT32) (RCOND-REF2443 ':FLOAT)
                              (ITHRESH-REF2444 ':INT32)
                              (RTHRESH-REF2445 ':FLOAT) (DZ_UB-REF2446 ':FLOAT)
                              (IGNORE_CWISE-REF2447 ':INT32)
                              (INFO-REF2448 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2418 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF2419 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2420 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2421 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2422 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2423 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2425 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2427 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2429 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2432 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2434 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2436 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2443 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2444 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2445 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2446 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2447 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2448 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2424 AB) (AFB-REF2426 AFB)
                                            (IPIV-REF2428 IPIV) (C-REF2430 C)
                                            (B-REF2431 B) (Y-REF2433 Y)
                                            (BERR_OUT-REF2435 BERR_OUT)
                                            (ERR_BNDS_NORM-REF2437
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF2438
                                             ERR_BNDS_COMP)
                                            (RES-REF2439 RES) (AYB-REF2440 AYB)
                                            (DY-REF2441 DY)
                                            (Y_TAIL-REF2442 Y_TAIL))
      (%%CLA_GBRFSX_EXTENDED PREC_TYPE-REF2418 TRANS_TYPE-REF2419 N-REF2420
       KL-REF2421 KU-REF2422 NRHS-REF2423 AB-REF2424 LDAB-REF2425 AFB-REF2426
       LDAFB-REF2427 IPIV-REF2428 COLEQU-REF2429 C-REF2430 B-REF2431
       LDB-REF2432 Y-REF2433 LDY-REF2434 BERR_OUT-REF2435 N_NORMS-REF2436
       ERR_BNDS_NORM-REF2437 ERR_BNDS_COMP-REF2438 RES-REF2439 AYB-REF2440
       DY-REF2441 Y_TAIL-REF2442 RCOND-REF2443 ITHRESH-REF2444 RTHRESH-REF2445
       DZ_UB-REF2446 IGNORE_CWISE-REF2447 INFO-REF2448))))

(CFFI:DEFCFUN ("cla_gbrpvgrw_" %%CLA_GBRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NCOLS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER))

(COMMON-LISP:DEFUN %CLA_GBRPVGRW (N KL KU NCOLS AB LDAB AFB LDAFB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GBRPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2449 ':INT32) (KL-REF2450 ':INT32)
                              (KU-REF2451 ':INT32) (NCOLS-REF2452 ':INT32)
                              (LDAB-REF2454 ':INT32) (LDAFB-REF2456 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2449 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2450 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2451 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF2452 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2454 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2456 :INT32) LDAFB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2453 AB) (AFB-REF2455 AFB))
      (%%CLA_GBRPVGRW N-REF2449 KL-REF2450 KU-REF2451 NCOLS-REF2452 AB-REF2453
       LDAB-REF2454 AFB-REF2455 LDAFB-REF2456))))

(CFFI:DEFCFUN ("cla_geamv_" %%CLA_GEAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CLA_GEAMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GEAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF2457 ':INT32) (M-REF2458 ':INT32)
                              (N-REF2459 ':INT32) (ALPHA-REF2460 ':FLOAT)
                              (LDA-REF2462 ':INT32) (INCX-REF2464 ':INT32)
                              (BETA-REF2465 ':FLOAT) (INCY-REF2467 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF2457 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2458 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2459 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2460 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2462 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2464 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2465 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2467 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2461 A) (X-REF2463 X)
                                            (Y-REF2466 Y))
      (%%CLA_GEAMV TRANS-REF2457 M-REF2458 N-REF2459 ALPHA-REF2460 A-REF2461
       LDA-REF2462 X-REF2463 INCX-REF2464 BETA-REF2465 Y-REF2466
       INCY-REF2467))))

(CFFI:DEFCFUN ("cla_gercond_c_" %%CLA_GERCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (TRANS :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_GERCOND_C
                   (TRANS N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GERCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2469 ':INT32) (LDA-REF2471 ':INT32)
                              (LDAF-REF2473 ':INT32) (CAPPLY-REF2476 ':INT32)
                              (INFO-REF2477 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2469 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2471 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2473 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2476 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2477 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2470 A) (AF-REF2472 AF)
                                            (IPIV-REF2474 IPIV) (C-REF2475 C)
                                            (WORK-REF2478 WORK)
                                            (RWORK-REF2479 RWORK))
      (%%CLA_GERCOND_C TRANS N-REF2469 A-REF2470 LDA-REF2471 AF-REF2472
       LDAF-REF2473 IPIV-REF2474 C-REF2475 CAPPLY-REF2476 INFO-REF2477
       WORK-REF2478 RWORK-REF2479))))

(CFFI:DEFCFUN ("cla_gercond_x_" %%CLA_GERCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (TRANS :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_GERCOND_X
                   (TRANS N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GERCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2481 ':INT32) (LDA-REF2483 ':INT32)
                              (LDAF-REF2485 ':INT32) (INFO-REF2488 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2481 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2483 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2485 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2488 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2482 A) (AF-REF2484 AF)
                                            (IPIV-REF2486 IPIV) (X-REF2487 X)
                                            (WORK-REF2489 WORK)
                                            (RWORK-REF2490 RWORK))
      (%%CLA_GERCOND_X TRANS N-REF2481 A-REF2482 LDA-REF2483 AF-REF2484
       LDAF-REF2485 IPIV-REF2486 X-REF2487 INFO-REF2488 WORK-REF2489
       RWORK-REF2490))))

(CFFI:DEFCFUN ("cla_gerfsx_extended_" %%CLA_GERFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERRS_N :POINTER)
  (ERRS_C :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLA_GERFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N NRHS A LDA AF LDAF IPIV COLEQU C B
                    LDB Y LDY BERR_OUT N_NORMS ERRS_N ERRS_C RES AYB DY Y_TAIL
                    RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GERFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERRS_N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERRS_C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2491 ':INT32)
                              (TRANS_TYPE-REF2492 ':INT32) (N-REF2493 ':INT32)
                              (NRHS-REF2494 ':INT32) (LDA-REF2496 ':INT32)
                              (LDAF-REF2498 ':INT32) (COLEQU-REF2500 ':INT32)
                              (LDB-REF2503 ':INT32) (LDY-REF2505 ':INT32)
                              (N_NORMS-REF2507 ':INT32) (RCOND-REF2514 ':FLOAT)
                              (ITHRESH-REF2515 ':INT32)
                              (RTHRESH-REF2516 ':FLOAT) (DZ_UB-REF2517 ':FLOAT)
                              (IGNORE_CWISE-REF2518 ':INT32)
                              (INFO-REF2519 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2491 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF2492 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2493 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2494 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2496 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2498 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2500 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2503 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2505 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2507 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2514 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2515 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2516 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2517 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2518 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2519 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2495 A) (AF-REF2497 AF)
                                            (IPIV-REF2499 IPIV) (C-REF2501 C)
                                            (B-REF2502 B) (Y-REF2504 Y)
                                            (BERR_OUT-REF2506 BERR_OUT)
                                            (ERRS_N-REF2508 ERRS_N)
                                            (ERRS_C-REF2509 ERRS_C)
                                            (RES-REF2510 RES) (AYB-REF2511 AYB)
                                            (DY-REF2512 DY)
                                            (Y_TAIL-REF2513 Y_TAIL))
      (%%CLA_GERFSX_EXTENDED PREC_TYPE-REF2491 TRANS_TYPE-REF2492 N-REF2493
       NRHS-REF2494 A-REF2495 LDA-REF2496 AF-REF2497 LDAF-REF2498 IPIV-REF2499
       COLEQU-REF2500 C-REF2501 B-REF2502 LDB-REF2503 Y-REF2504 LDY-REF2505
       BERR_OUT-REF2506 N_NORMS-REF2507 ERRS_N-REF2508 ERRS_C-REF2509
       RES-REF2510 AYB-REF2511 DY-REF2512 Y_TAIL-REF2513 RCOND-REF2514
       ITHRESH-REF2515 RTHRESH-REF2516 DZ_UB-REF2517 IGNORE_CWISE-REF2518
       INFO-REF2519))))

(CFFI:DEFCFUN ("cla_gerpvgrw_" %%CLA_GERPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (N :POINTER)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER))

(COMMON-LISP:DEFUN %CLA_GERPVGRW (N NCOLS A LDA AF LDAF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_GERPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2520 ':INT32) (NCOLS-REF2521 ':INT32)
                              (LDA-REF2523 ':INT32) (LDAF-REF2525 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2520 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF2521 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2523 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2525 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2522 A) (AF-REF2524 AF))
      (%%CLA_GERPVGRW N-REF2520 NCOLS-REF2521 A-REF2522 LDA-REF2523 AF-REF2524
       LDAF-REF2525))))

(CFFI:DEFCFUN ("cla_heamv_" %%CLA_HEAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CLA_HEAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HEAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF2526 ':INT32) (N-REF2527 ':INT32)
                              (ALPHA-REF2528 ':FLOAT) (LDA-REF2530 ':INT32)
                              (INCX-REF2532 ':INT32) (BETA-REF2533 ':FLOAT)
                              (INCY-REF2535 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF2526 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2527 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2528 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2530 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2532 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2533 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2535 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2529 A) (X-REF2531 X)
                                            (Y-REF2534 Y))
      (%%CLA_HEAMV UPLO-REF2526 N-REF2527 ALPHA-REF2528 A-REF2529 LDA-REF2530
       X-REF2531 INCX-REF2532 BETA-REF2533 Y-REF2534 INCY-REF2535))))

(CFFI:DEFCFUN ("cla_hercond_c_" %%CLA_HERCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_HERCOND_C
                   (UPLO N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HERCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2537 ':INT32) (LDA-REF2539 ':INT32)
                              (LDAF-REF2541 ':INT32) (CAPPLY-REF2544 ':INT32)
                              (INFO-REF2545 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2537 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2539 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2541 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2544 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2545 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2538 A) (AF-REF2540 AF)
                                            (IPIV-REF2542 IPIV) (C-REF2543 C)
                                            (WORK-REF2546 WORK)
                                            (RWORK-REF2547 RWORK))
      (%%CLA_HERCOND_C UPLO N-REF2537 A-REF2538 LDA-REF2539 AF-REF2540
       LDAF-REF2541 IPIV-REF2542 C-REF2543 CAPPLY-REF2544 INFO-REF2545
       WORK-REF2546 RWORK-REF2547))))

(CFFI:DEFCFUN ("cla_hercond_x_" %%CLA_HERCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_HERCOND_X (UPLO N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HERCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2549 ':INT32) (LDA-REF2551 ':INT32)
                              (LDAF-REF2553 ':INT32) (INFO-REF2556 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2549 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2551 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2553 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2556 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2550 A) (AF-REF2552 AF)
                                            (IPIV-REF2554 IPIV) (X-REF2555 X)
                                            (WORK-REF2557 WORK)
                                            (RWORK-REF2558 RWORK))
      (%%CLA_HERCOND_X UPLO N-REF2549 A-REF2550 LDA-REF2551 AF-REF2552
       LDAF-REF2553 IPIV-REF2554 X-REF2555 INFO-REF2556 WORK-REF2557
       RWORK-REF2558))))

(CFFI:DEFCFUN ("cla_herfsx_extended_" %%CLA_HERFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLA_HERFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
                    LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HERFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2559 ':INT32) (N-REF2561 ':INT32)
                              (NRHS-REF2562 ':INT32) (LDA-REF2564 ':INT32)
                              (LDAF-REF2566 ':INT32) (COLEQU-REF2568 ':INT32)
                              (LDB-REF2571 ':INT32) (LDY-REF2573 ':INT32)
                              (N_NORMS-REF2575 ':INT32) (RCOND-REF2582 ':FLOAT)
                              (ITHRESH-REF2583 ':INT32)
                              (RTHRESH-REF2584 ':FLOAT) (DZ_UB-REF2585 ':FLOAT)
                              (IGNORE_CWISE-REF2586 ':INT32)
                              (INFO-REF2587 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2559 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2561 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2562 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2564 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2566 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2568 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2571 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2573 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2575 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2582 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2583 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2584 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2585 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2586 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2587 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2563 A) (AF-REF2565 AF)
                                            (IPIV-REF2567 IPIV) (C-REF2569 C)
                                            (B-REF2570 B) (Y-REF2572 Y)
                                            (BERR_OUT-REF2574 BERR_OUT)
                                            (ERR_BNDS_NORM-REF2576
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF2577
                                             ERR_BNDS_COMP)
                                            (RES-REF2578 RES) (AYB-REF2579 AYB)
                                            (DY-REF2580 DY)
                                            (Y_TAIL-REF2581 Y_TAIL))
      (%%CLA_HERFSX_EXTENDED PREC_TYPE-REF2559 UPLO N-REF2561 NRHS-REF2562
       A-REF2563 LDA-REF2564 AF-REF2565 LDAF-REF2566 IPIV-REF2567
       COLEQU-REF2568 C-REF2569 B-REF2570 LDB-REF2571 Y-REF2572 LDY-REF2573
       BERR_OUT-REF2574 N_NORMS-REF2575 ERR_BNDS_NORM-REF2576
       ERR_BNDS_COMP-REF2577 RES-REF2578 AYB-REF2579 DY-REF2580 Y_TAIL-REF2581
       RCOND-REF2582 ITHRESH-REF2583 RTHRESH-REF2584 DZ_UB-REF2585
       IGNORE_CWISE-REF2586 INFO-REF2587))))

(CFFI:DEFCFUN ("cla_herpvgrw_" %%CLA_HERPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (INFO :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLA_HERPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_HERPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2589 ':INT32) (INFO-REF2590 ':INT32)
                              (LDA-REF2592 ':INT32) (LDAF-REF2594 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2589 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2590 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2592 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2594 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2591 A) (AF-REF2593 AF)
                                            (IPIV-REF2595 IPIV)
                                            (WORK-REF2596 WORK))
      (%%CLA_HERPVGRW UPLO N-REF2589 INFO-REF2590 A-REF2591 LDA-REF2592
       AF-REF2593 LDAF-REF2594 IPIV-REF2595 WORK-REF2596))))

(CFFI:DEFCFUN ("cla_lin_berr_" %%CLA_LIN_BERR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NZ :POINTER)
  (NRHS :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (BERR :POINTER))

(COMMON-LISP:DEFUN %CLA_LIN_BERR (N NZ NRHS RES AYB BERR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_LIN_BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2597 ':INT32) (NZ-REF2598 ':INT32)
                              (NRHS-REF2599 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2597 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF2598 :INT32) NZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2599 :INT32) NRHS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF2600 RES) (AYB-REF2601 AYB)
                                            (BERR-REF2602 BERR))
      (%%CLA_LIN_BERR N-REF2597 NZ-REF2598 NRHS-REF2599 RES-REF2600 AYB-REF2601
       BERR-REF2602))))

(CFFI:DEFCFUN ("cla_porcond_c_" %%CLA_PORCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_PORCOND_C
                   (UPLO N A LDA AF LDAF C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_PORCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2604 ':INT32) (LDA-REF2606 ':INT32)
                              (LDAF-REF2608 ':INT32) (CAPPLY-REF2610 ':INT32)
                              (INFO-REF2611 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2604 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2606 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2608 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2610 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2611 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2605 A) (AF-REF2607 AF)
                                            (C-REF2609 C) (WORK-REF2612 WORK)
                                            (RWORK-REF2613 RWORK))
      (%%CLA_PORCOND_C UPLO N-REF2604 A-REF2605 LDA-REF2606 AF-REF2607
       LDAF-REF2608 C-REF2609 CAPPLY-REF2610 INFO-REF2611 WORK-REF2612
       RWORK-REF2613))))

(CFFI:DEFCFUN ("cla_porcond_x_" %%CLA_PORCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_PORCOND_X (UPLO N A LDA AF LDAF X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_PORCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2615 ':INT32) (LDA-REF2617 ':INT32)
                              (LDAF-REF2619 ':INT32) (INFO-REF2621 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2615 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2617 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2619 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2621 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2616 A) (AF-REF2618 AF)
                                            (X-REF2620 X) (WORK-REF2622 WORK)
                                            (RWORK-REF2623 RWORK))
      (%%CLA_PORCOND_X UPLO N-REF2615 A-REF2616 LDA-REF2617 AF-REF2618
       LDAF-REF2619 X-REF2620 INFO-REF2621 WORK-REF2622 RWORK-REF2623))))

(CFFI:DEFCFUN ("cla_porfsx_extended_" %%CLA_PORFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLA_PORFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF COLEQU C B LDB Y LDY
                    BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_PORFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2624 ':INT32) (N-REF2626 ':INT32)
                              (NRHS-REF2627 ':INT32) (LDA-REF2629 ':INT32)
                              (LDAF-REF2631 ':INT32) (COLEQU-REF2632 ':INT32)
                              (LDB-REF2635 ':INT32) (LDY-REF2637 ':INT32)
                              (N_NORMS-REF2639 ':INT32) (RCOND-REF2646 ':FLOAT)
                              (ITHRESH-REF2647 ':INT32)
                              (RTHRESH-REF2648 ':FLOAT) (DZ_UB-REF2649 ':FLOAT)
                              (IGNORE_CWISE-REF2650 ':INT32)
                              (INFO-REF2651 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2624 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2626 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2627 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2629 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2631 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2632 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2635 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2637 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2639 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2646 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2647 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2648 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2649 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2650 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2651 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2628 A) (AF-REF2630 AF)
                                            (C-REF2633 C) (B-REF2634 B)
                                            (Y-REF2636 Y)
                                            (BERR_OUT-REF2638 BERR_OUT)
                                            (ERR_BNDS_NORM-REF2640
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF2641
                                             ERR_BNDS_COMP)
                                            (RES-REF2642 RES) (AYB-REF2643 AYB)
                                            (DY-REF2644 DY)
                                            (Y_TAIL-REF2645 Y_TAIL))
      (%%CLA_PORFSX_EXTENDED PREC_TYPE-REF2624 UPLO N-REF2626 NRHS-REF2627
       A-REF2628 LDA-REF2629 AF-REF2630 LDAF-REF2631 COLEQU-REF2632 C-REF2633
       B-REF2634 LDB-REF2635 Y-REF2636 LDY-REF2637 BERR_OUT-REF2638
       N_NORMS-REF2639 ERR_BNDS_NORM-REF2640 ERR_BNDS_COMP-REF2641 RES-REF2642
       AYB-REF2643 DY-REF2644 Y_TAIL-REF2645 RCOND-REF2646 ITHRESH-REF2647
       RTHRESH-REF2648 DZ_UB-REF2649 IGNORE_CWISE-REF2650 INFO-REF2651))))

(CFFI:DEFCFUN ("cla_porpvgrw_" %%CLA_PORPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLA_PORPVGRW (UPLO NCOLS A LDA AF LDAF WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_PORPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF2653 ':INT32) (LDA-REF2655 ':INT32)
                              (LDAF-REF2657 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF2653 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2655 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2657 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2654 A) (AF-REF2656 AF)
                                            (WORK-REF2658 WORK))
      (%%CLA_PORPVGRW UPLO NCOLS-REF2653 A-REF2654 LDA-REF2655 AF-REF2656
       LDAF-REF2657 WORK-REF2658))))

(CFFI:DEFCFUN ("cla_syamv_" %%CLA_SYAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CLA_SYAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF2659 ':INT32) (N-REF2660 ':INT32)
                              (ALPHA-REF2661 ':FLOAT) (LDA-REF2663 ':INT32)
                              (INCX-REF2665 ':INT32) (BETA-REF2666 ':FLOAT)
                              (INCY-REF2668 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF2659 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2660 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2661 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2663 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2665 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2666 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2668 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2662 A) (X-REF2664 X)
                                            (Y-REF2667 Y))
      (%%CLA_SYAMV UPLO-REF2659 N-REF2660 ALPHA-REF2661 A-REF2662 LDA-REF2663
       X-REF2664 INCX-REF2665 BETA-REF2666 Y-REF2667 INCY-REF2668))))

(CFFI:DEFCFUN ("cla_syrcond_c_" %%CLA_SYRCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_SYRCOND_C
                   (UPLO N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYRCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2670 ':INT32) (LDA-REF2672 ':INT32)
                              (LDAF-REF2674 ':INT32) (CAPPLY-REF2677 ':INT32)
                              (INFO-REF2678 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2670 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2672 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2674 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2677 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2678 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2671 A) (AF-REF2673 AF)
                                            (IPIV-REF2675 IPIV) (C-REF2676 C)
                                            (WORK-REF2679 WORK)
                                            (RWORK-REF2680 RWORK))
      (%%CLA_SYRCOND_C UPLO N-REF2670 A-REF2671 LDA-REF2672 AF-REF2673
       LDAF-REF2674 IPIV-REF2675 C-REF2676 CAPPLY-REF2677 INFO-REF2678
       WORK-REF2679 RWORK-REF2680))))

(CFFI:DEFCFUN ("cla_syrcond_x_" %%CLA_SYRCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLA_SYRCOND_X (UPLO N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYRCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2682 ':INT32) (LDA-REF2684 ':INT32)
                              (LDAF-REF2686 ':INT32) (INFO-REF2689 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2682 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2684 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2686 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2689 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2683 A) (AF-REF2685 AF)
                                            (IPIV-REF2687 IPIV) (X-REF2688 X)
                                            (WORK-REF2690 WORK)
                                            (RWORK-REF2691 RWORK))
      (%%CLA_SYRCOND_X UPLO N-REF2682 A-REF2683 LDA-REF2684 AF-REF2685
       LDAF-REF2686 IPIV-REF2687 X-REF2688 INFO-REF2689 WORK-REF2690
       RWORK-REF2691))))

(CFFI:DEFCFUN ("cla_syrfsx_extended_" %%CLA_SYRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLA_SYRFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
                    LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2692 ':INT32) (N-REF2694 ':INT32)
                              (NRHS-REF2695 ':INT32) (LDA-REF2697 ':INT32)
                              (LDAF-REF2699 ':INT32) (COLEQU-REF2701 ':INT32)
                              (LDB-REF2704 ':INT32) (LDY-REF2706 ':INT32)
                              (N_NORMS-REF2708 ':INT32) (RCOND-REF2715 ':FLOAT)
                              (ITHRESH-REF2716 ':INT32)
                              (RTHRESH-REF2717 ':FLOAT) (DZ_UB-REF2718 ':FLOAT)
                              (IGNORE_CWISE-REF2719 ':INT32)
                              (INFO-REF2720 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2692 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2694 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2695 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2697 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2699 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2701 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2704 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2706 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2708 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2715 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2716 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2717 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2718 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2719 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2720 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2696 A) (AF-REF2698 AF)
                                            (IPIV-REF2700 IPIV) (C-REF2702 C)
                                            (B-REF2703 B) (Y-REF2705 Y)
                                            (BERR_OUT-REF2707 BERR_OUT)
                                            (ERR_BNDS_NORM-REF2709
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF2710
                                             ERR_BNDS_COMP)
                                            (RES-REF2711 RES) (AYB-REF2712 AYB)
                                            (DY-REF2713 DY)
                                            (Y_TAIL-REF2714 Y_TAIL))
      (%%CLA_SYRFSX_EXTENDED PREC_TYPE-REF2692 UPLO N-REF2694 NRHS-REF2695
       A-REF2696 LDA-REF2697 AF-REF2698 LDAF-REF2699 IPIV-REF2700
       COLEQU-REF2701 C-REF2702 B-REF2703 LDB-REF2704 Y-REF2705 LDY-REF2706
       BERR_OUT-REF2707 N_NORMS-REF2708 ERR_BNDS_NORM-REF2709
       ERR_BNDS_COMP-REF2710 RES-REF2711 AYB-REF2712 DY-REF2713 Y_TAIL-REF2714
       RCOND-REF2715 ITHRESH-REF2716 RTHRESH-REF2717 DZ_UB-REF2718
       IGNORE_CWISE-REF2719 INFO-REF2720))))

(CFFI:DEFCFUN ("cla_syrpvgrw_" %%CLA_SYRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (INFO :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLA_SYRPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYRPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2722 ':INT32) (INFO-REF2723 ':INT32)
                              (LDA-REF2725 ':INT32) (LDAF-REF2727 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2722 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2723 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2725 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2727 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2724 A) (AF-REF2726 AF)
                                            (IPIV-REF2728 IPIV)
                                            (WORK-REF2729 WORK))
      (%%CLA_SYRPVGRW UPLO N-REF2722 INFO-REF2723 A-REF2724 LDA-REF2725
       AF-REF2726 LDAF-REF2727 IPIV-REF2728 WORK-REF2729))))

(CFFI:DEFCFUN ("cla_wwaddw_" %%CLA_WWADDW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (W :POINTER))

(COMMON-LISP:DEFUN %CLA_WWADDW (N X Y W)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_WWADDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2730 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2730 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF2731 X) (Y-REF2732 Y)
                                            (W-REF2733 W))
      (%%CLA_WWADDW N-REF2730 X-REF2731 Y-REF2732 W-REF2733))))

(CFFI:DEFCFUN ("clabrd_" %%CLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %CLABRD (M N NB A LDA D E TAUQ TAUP X LDX Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLABRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2734 ':INT32) (N-REF2735 ':INT32)
                              (NB-REF2736 ':INT32) (LDA-REF2738 ':INT32)
                              (LDX-REF2744 ':INT32) (LDY-REF2746 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2734 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2735 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2736 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2738 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2744 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2746 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2737 A) (D-REF2739 D)
                                            (E-REF2740 E) (TAUQ-REF2741 TAUQ)
                                            (TAUP-REF2742 TAUP) (X-REF2743 X)
                                            (Y-REF2745 Y))
      (%%CLABRD M-REF2734 N-REF2735 NB-REF2736 A-REF2737 LDA-REF2738 D-REF2739
       E-REF2740 TAUQ-REF2741 TAUP-REF2742 X-REF2743 LDX-REF2744 Y-REF2745
       LDY-REF2746))))

(CFFI:DEFCFUN ("clacgv_" %%CLACGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CLACGV (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2747 ':INT32) (INCX-REF2749 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2747 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2749 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF2748 X))
      (%%CLACGV N-REF2747 X-REF2748 INCX-REF2749))))

(CFFI:DEFCFUN ("clacn2_" %%CLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (EST :POINTER)
  (KASE :POINTER)
  (ISAVE :POINTER))

(COMMON-LISP:DEFUN %CLACN2 (N V X EST KASE ISAVE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACN2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISAVE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2750 ':INT32) (EST-REF2753 ':FLOAT)
                              (KASE-REF2754 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2750 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF2753 :FLOAT) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF2754 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF2751 V) (X-REF2752 X)
                                            (ISAVE-REF2755 ISAVE))
      (%%CLACN2 N-REF2750 V-REF2751 X-REF2752 EST-REF2753 KASE-REF2754
       ISAVE-REF2755))))

(CFFI:DEFCFUN ("clacon_" %%CLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (EST :POINTER)
  (KASE :POINTER))

(COMMON-LISP:DEFUN %CLACON (N V X EST KASE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2756 ':INT32) (EST-REF2759 ':FLOAT)
                              (KASE-REF2760 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2756 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF2759 :FLOAT) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF2760 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF2757 V) (X-REF2758 X))
      (%%CLACON N-REF2756 V-REF2757 X-REF2758 EST-REF2759 KASE-REF2760))))

(CFFI:DEFCFUN ("clacp2_" %%CLACP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CLACP2 (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACP2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2762 ':INT32) (N-REF2763 ':INT32)
                              (LDA-REF2765 ':INT32) (LDB-REF2767 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2762 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2763 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2765 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2767 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2764 A) (B-REF2766 B))
      (%%CLACP2 UPLO M-REF2762 N-REF2763 A-REF2764 LDA-REF2765 B-REF2766
       LDB-REF2767))))

(CFFI:DEFCFUN ("clacpy_" %%CLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CLACPY (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACPY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2769 ':INT32) (N-REF2770 ':INT32)
                              (LDA-REF2772 ':INT32) (LDB-REF2774 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2769 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2770 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2772 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2774 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2771 A) (B-REF2773 B))
      (%%CLACPY UPLO M-REF2769 N-REF2770 A-REF2771 LDA-REF2772 B-REF2773
       LDB-REF2774))))

(CFFI:DEFCFUN ("clacrm_" %%CLACRM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLACRM (M N A LDA B LDB C LDC RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACRM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2775 ':INT32) (N-REF2776 ':INT32)
                              (LDA-REF2778 ':INT32) (LDB-REF2780 ':INT32)
                              (LDC-REF2782 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2775 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2776 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2778 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2780 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF2782 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2777 A) (B-REF2779 B)
                                            (C-REF2781 C) (RWORK-REF2783 RWORK))
      (%%CLACRM M-REF2775 N-REF2776 A-REF2777 LDA-REF2778 B-REF2779 LDB-REF2780
       C-REF2781 LDC-REF2782 RWORK-REF2783))))

(CFFI:DEFCFUN ("clacrt_" %%CLACRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %CLACRT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2784 ':INT32) (INCX-REF2786 ':INT32)
                              (INCY-REF2788 ':INT32)
                              (C-REF2789
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (S-REF2790
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2784 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2786 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2788 :INT32) INCY)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF2789 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF2790 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF2785 CX) (CY-REF2787 CY))
      (%%CLACRT N-REF2784 CX-REF2785 INCX-REF2786 CY-REF2787 INCY-REF2788
       C-REF2789 S-REF2790))))

(CFFI:DEFCFUN ("cladiv_" %%CLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT
  (X :POINTER)
  (Y :POINTER))

(COMMON-LISP:DEFUN %CLADIV (X Y)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLADIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) Y))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF2791
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (Y-REF2792
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              X-REF2791 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART X)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART X)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              Y-REF2792 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART Y)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART Y)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLADIV X-REF2791 Y-REF2792))))

(CFFI:DEFCFUN ("claed0_" %%CLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (QSIZ :POINTER)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (QSTORE :POINTER)
  (LDQS :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAED0 (QSIZ N D E Q LDQ QSTORE LDQS RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAED0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        QSTORE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((QSIZ-REF2793 ':INT32) (N-REF2794 ':INT32)
                              (LDQ-REF2798 ':INT32) (LDQS-REF2800 ':INT32)
                              (INFO-REF2803 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF2793 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2794 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2798 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF2800 :INT32) LDQS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2803 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF2795 D) (E-REF2796 E)
                                            (Q-REF2797 Q)
                                            (QSTORE-REF2799 QSTORE)
                                            (RWORK-REF2801 RWORK)
                                            (IWORK-REF2802 IWORK))
      (%%CLAED0 QSIZ-REF2793 N-REF2794 D-REF2795 E-REF2796 Q-REF2797
       LDQ-REF2798 QSTORE-REF2799 LDQS-REF2800 RWORK-REF2801 IWORK-REF2802
       INFO-REF2803))))

(CFFI:DEFCFUN ("claed7_" %%CLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (CUTPNT :POINTER)
  (QSIZ :POINTER)
  (TLVLS :POINTER)
  (CURLVL :POINTER)
  (CURPBM :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (RHO :POINTER)
  (INDXQ :POINTER)
  (QSTORE :POINTER)
  (QPTR :POINTER)
  (PRMPTR :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAED7
                   (N CUTPNT QSIZ TLVLS CURLVL CURPBM D Q LDQ RHO INDXQ QSTORE
                    QPTR PRMPTR PERM GIVPTR GIVCOL GIVNUM WORK RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAED7)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        QSTORE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        QPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PRMPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2804 ':INT32) (CUTPNT-REF2805 ':INT32)
                              (QSIZ-REF2806 ':INT32) (TLVLS-REF2807 ':INT32)
                              (CURLVL-REF2808 ':INT32) (CURPBM-REF2809 ':INT32)
                              (LDQ-REF2812 ':INT32) (RHO-REF2813 ':FLOAT)
                              (INFO-REF2825 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2804 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF2805 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF2806 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF2807 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF2808 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF2809 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2812 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF2813 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2825 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF2810 D) (Q-REF2811 Q)
                                            (INDXQ-REF2814 INDXQ)
                                            (QSTORE-REF2815 QSTORE)
                                            (QPTR-REF2816 QPTR)
                                            (PRMPTR-REF2817 PRMPTR)
                                            (PERM-REF2818 PERM)
                                            (GIVPTR-REF2819 GIVPTR)
                                            (GIVCOL-REF2820 GIVCOL)
                                            (GIVNUM-REF2821 GIVNUM)
                                            (WORK-REF2822 WORK)
                                            (RWORK-REF2823 RWORK)
                                            (IWORK-REF2824 IWORK))
      (%%CLAED7 N-REF2804 CUTPNT-REF2805 QSIZ-REF2806 TLVLS-REF2807
       CURLVL-REF2808 CURPBM-REF2809 D-REF2810 Q-REF2811 LDQ-REF2812
       RHO-REF2813 INDXQ-REF2814 QSTORE-REF2815 QPTR-REF2816 PRMPTR-REF2817
       PERM-REF2818 GIVPTR-REF2819 GIVCOL-REF2820 GIVNUM-REF2821 WORK-REF2822
       RWORK-REF2823 IWORK-REF2824 INFO-REF2825))))

(CFFI:DEFCFUN ("claed8_" %%CLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (K :POINTER)
  (N :POINTER)
  (QSIZ :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (D :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (Z :POINTER)
  (DLAMDA :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (W :POINTER)
  (INDXP :POINTER)
  (INDX :POINTER)
  (INDXQ :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAED8
                   (K N QSIZ Q LDQ D RHO CUTPNT Z DLAMDA Q2 LDQ2 W INDXP INDX
                    INDXQ PERM GIVPTR GIVCOL GIVNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAED8)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF2826 ':INT32) (N-REF2827 ':INT32)
                              (QSIZ-REF2828 ':INT32) (LDQ-REF2830 ':INT32)
                              (RHO-REF2832 ':FLOAT) (CUTPNT-REF2833 ':INT32)
                              (LDQ2-REF2837 ':INT32) (GIVPTR-REF2843 ':INT32)
                              (INFO-REF2846 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2826 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2827 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF2828 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2830 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF2832 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF2833 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF2837 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF2843 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2846 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF2829 Q) (D-REF2831 D)
                                            (Z-REF2834 Z)
                                            (DLAMDA-REF2835 DLAMDA)
                                            (Q2-REF2836 Q2) (W-REF2838 W)
                                            (INDXP-REF2839 INDXP)
                                            (INDX-REF2840 INDX)
                                            (INDXQ-REF2841 INDXQ)
                                            (PERM-REF2842 PERM)
                                            (GIVCOL-REF2844 GIVCOL)
                                            (GIVNUM-REF2845 GIVNUM))
      (%%CLAED8 K-REF2826 N-REF2827 QSIZ-REF2828 Q-REF2829 LDQ-REF2830
       D-REF2831 RHO-REF2832 CUTPNT-REF2833 Z-REF2834 DLAMDA-REF2835 Q2-REF2836
       LDQ2-REF2837 W-REF2838 INDXP-REF2839 INDX-REF2840 INDXQ-REF2841
       PERM-REF2842 GIVPTR-REF2843 GIVCOL-REF2844 GIVNUM-REF2845
       INFO-REF2846))))

(CFFI:DEFCFUN ("claein_" %%CLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (RIGHTV :POINTER)
  (NOINIT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (V :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (RWORK :POINTER)
  (EPS3 :POINTER)
  (SMLNUM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAEIN
                   (RIGHTV NOINIT N H LDH W V B LDB RWORK EPS3 SMLNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RIGHTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NOINIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMLNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF2847 ':INT32) (NOINIT-REF2848 ':INT32)
                              (N-REF2849 ':INT32) (LDH-REF2851 ':INT32)
                              (W-REF2852
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDB-REF2855 ':INT32) (EPS3-REF2857 ':FLOAT)
                              (SMLNUM-REF2858 ':FLOAT) (INFO-REF2859 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF2847 :INT32) RIGHTV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF2848 :INT32) NOINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2849 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2851 :INT32) LDH)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              W-REF2852 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART W)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART W)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2855 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF2857 :FLOAT) EPS3)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF2858 :FLOAT) SMLNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2859 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2850 H) (V-REF2853 V)
                                            (B-REF2854 B) (RWORK-REF2856 RWORK))
      (%%CLAEIN RIGHTV-REF2847 NOINIT-REF2848 N-REF2849 H-REF2850 LDH-REF2851
       W-REF2852 V-REF2853 B-REF2854 LDB-REF2855 RWORK-REF2856 EPS3-REF2857
       SMLNUM-REF2858 INFO-REF2859))))

(CFFI:DEFCFUN ("claesy_" %%CLAESY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER)
  (EVSCAL :POINTER)
  (CS1 :POINTER)
  (SN1 :POINTER))

(COMMON-LISP:DEFUN %CLAESY (A B C RT1 RT2 EVSCAL CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAESY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) RT1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) RT2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) EVSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) CS1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF2860
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (B-REF2861
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (C-REF2862
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (RT1-REF2863
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (RT2-REF2864
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (EVSCAL-REF2865
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CS1-REF2866
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (SN1-REF2867
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              A-REF2860 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              B-REF2861 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF2862 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              RT1-REF2863
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART RT1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              RT2-REF2864
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART RT2)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              EVSCAL-REF2865
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART EVSCAL)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART EVSCAL)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CS1-REF2866
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CS1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CS1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SN1-REF2867
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN1)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLAESY A-REF2860 B-REF2861 C-REF2862 RT1-REF2863 RT2-REF2864
       EVSCAL-REF2865 CS1-REF2866 SN1-REF2867))))

(CFFI:DEFCFUN ("claev2_" %%CLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER)
  (CS1 :POINTER)
  (SN1 :POINTER))

(COMMON-LISP:DEFUN %CLAEV2 (A B C RT1 RT2 CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAEV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF2868
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (B-REF2869
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (C-REF2870
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (RT1-REF2871 ':FLOAT) (RT2-REF2872 ':FLOAT)
                              (CS1-REF2873 ':FLOAT)
                              (SN1-REF2874
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              A-REF2868 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              B-REF2869 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF2870 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF2871 :FLOAT) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF2872 :FLOAT) RT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF2873 :FLOAT) CS1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SN1-REF2874
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN1)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLAEV2 A-REF2868 B-REF2869 C-REF2870 RT1-REF2871 RT2-REF2872
       CS1-REF2873 SN1-REF2874))))

(CFFI:DEFCFUN ("clag2z_" %%CLAG2Z :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (SA :POINTER)
  (LDSA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAG2Z (M N SA LDSA A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAG2Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2875 ':INT32) (N-REF2876 ':INT32)
                              (LDSA-REF2878 ':INT32) (LDA-REF2880 ':INT32)
                              (INFO-REF2881 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2875 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2876 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF2878 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2880 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2881 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SA-REF2877 SA) (A-REF2879 A))
      (%%CLAG2Z M-REF2875 N-REF2876 SA-REF2877 LDSA-REF2878 A-REF2879
       LDA-REF2880 INFO-REF2881))))

(CFFI:DEFCFUN ("clags2_" %%CLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPPER :POINTER)
  (A1 :POINTER)
  (A2 :POINTER)
  (A3 :POINTER)
  (B1 :POINTER)
  (B2 :POINTER)
  (B3 :POINTER)
  (CSU :POINTER)
  (SNU :POINTER)
  (CSV :POINTER)
  (SNV :POINTER)
  (CSQ :POINTER)
  (SNQ :POINTER))

(COMMON-LISP:DEFUN %CLAGS2 (UPPER A1 A2 A3 B1 B2 B3 CSU SNU CSV SNV CSQ SNQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPPER)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) A2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) B2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SNU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SNV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SNQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF2882 ':INT32) (A1-REF2883 ':FLOAT)
                              (A2-REF2884
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (A3-REF2885 ':FLOAT) (B1-REF2886 ':FLOAT)
                              (B2-REF2887
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (B3-REF2888 ':FLOAT) (CSU-REF2889 ':FLOAT)
                              (SNU-REF2890
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CSV-REF2891 ':FLOAT)
                              (SNV-REF2892
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CSQ-REF2893 ':FLOAT)
                              (SNQ-REF2894
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF2882 :INT32) UPPER)
    (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF2883 :FLOAT) A1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              A2-REF2884 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A2)))
    (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF2885 :FLOAT) A3)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF2886 :FLOAT) B1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              B2-REF2887 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B2)))
    (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF2888 :FLOAT) B3)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF2889 :FLOAT) CSU)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SNU-REF2890
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF2891 :FLOAT) CSV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SNV-REF2892
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNV)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNV)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF2893 :FLOAT) CSQ)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SNQ-REF2894
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNQ)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNQ)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLAGS2 UPPER-REF2882 A1-REF2883 A2-REF2884 A3-REF2885 B1-REF2886
       B2-REF2887 B3-REF2888 CSU-REF2889 SNU-REF2890 CSV-REF2891 SNV-REF2892
       CSQ-REF2893 SNQ-REF2894))))

(CFFI:DEFCFUN ("clagtm_" %%CLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (ALPHA :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (BETA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CLAGTM (TRANS N NRHS ALPHA DL D DU X LDX BETA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAGTM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2896 ':INT32) (NRHS-REF2897 ':INT32)
                              (ALPHA-REF2898 ':FLOAT) (LDX-REF2903 ':INT32)
                              (BETA-REF2904 ':FLOAT) (LDB-REF2906 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2896 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2897 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2898 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2903 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2904 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2906 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF2899 DL) (D-REF2900 D)
                                            (DU-REF2901 DU) (X-REF2902 X)
                                            (B-REF2905 B))
      (%%CLAGTM TRANS N-REF2896 NRHS-REF2897 ALPHA-REF2898 DL-REF2899 D-REF2900
       DU-REF2901 X-REF2902 LDX-REF2903 BETA-REF2904 B-REF2905 LDB-REF2906))))

(CFFI:DEFCFUN ("clahef_" %%CLAHEF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAHEF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHEF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2908 ':INT32) (NB-REF2909 ':INT32)
                              (KB-REF2910 ':INT32) (LDA-REF2912 ':INT32)
                              (LDW-REF2915 ':INT32) (INFO-REF2916 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2908 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2909 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF2910 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2912 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF2915 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2916 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2911 A) (IPIV-REF2913 IPIV)
                                            (W-REF2914 W))
      (%%CLAHEF UPLO N-REF2908 NB-REF2909 KB-REF2910 A-REF2911 LDA-REF2912
       IPIV-REF2913 W-REF2914 LDW-REF2915 INFO-REF2916))))

(CFFI:DEFCFUN ("clahef_aa_" %%CLAHEF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (J1 :POINTER)
  (M :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLAHEF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHEF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF2918 ':INT32) (M-REF2919 ':INT32)
                              (NB-REF2920 ':INT32) (LDA-REF2922 ':INT32)
                              (LDH-REF2925 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF2918 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2919 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2920 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2922 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2925 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2921 A) (IPIV-REF2923 IPIV)
                                            (H-REF2924 H) (WORK-REF2926 WORK))
      (%%CLAHEF_AA UPLO J1-REF2918 M-REF2919 NB-REF2920 A-REF2921 LDA-REF2922
       IPIV-REF2923 H-REF2924 LDH-REF2925 WORK-REF2926))))

(CFFI:DEFCFUN ("clahef_rk_" %%CLAHEF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAHEF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHEF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2928 ':INT32) (NB-REF2929 ':INT32)
                              (KB-REF2930 ':INT32) (LDA-REF2932 ':INT32)
                              (LDW-REF2936 ':INT32) (INFO-REF2937 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2928 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2929 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF2930 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2932 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF2936 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2937 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2931 A) (E-REF2933 E)
                                            (IPIV-REF2934 IPIV) (W-REF2935 W))
      (%%CLAHEF_RK UPLO N-REF2928 NB-REF2929 KB-REF2930 A-REF2931 LDA-REF2932
       E-REF2933 IPIV-REF2934 W-REF2935 LDW-REF2936 INFO-REF2937))))

(CFFI:DEFCFUN ("clahef_rook_" %%CLAHEF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAHEF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHEF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2939 ':INT32) (NB-REF2940 ':INT32)
                              (KB-REF2941 ':INT32) (LDA-REF2943 ':INT32)
                              (LDW-REF2946 ':INT32) (INFO-REF2947 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2939 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2940 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF2941 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2943 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF2946 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2947 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2942 A) (IPIV-REF2944 IPIV)
                                            (W-REF2945 W))
      (%%CLAHEF_ROOK UPLO N-REF2939 NB-REF2940 KB-REF2941 A-REF2942 LDA-REF2943
       IPIV-REF2944 W-REF2945 LDW-REF2946 INFO-REF2947))))

(CFFI:DEFCFUN ("clahqr_" %%CLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAHQR (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF2948 ':INT32) (WANTZ-REF2949 ':INT32)
                              (N-REF2950 ':INT32) (ILO-REF2951 ':INT32)
                              (IHI-REF2952 ':INT32) (LDH-REF2954 ':INT32)
                              (ILOZ-REF2956 ':INT32) (IHIZ-REF2957 ':INT32)
                              (LDZ-REF2959 ':INT32) (INFO-REF2960 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF2948 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF2949 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2950 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2951 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2952 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2954 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF2956 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF2957 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2959 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2960 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2953 H) (W-REF2955 W)
                                            (Z-REF2958 Z))
      (%%CLAHQR WANTT-REF2948 WANTZ-REF2949 N-REF2950 ILO-REF2951 IHI-REF2952
       H-REF2953 LDH-REF2954 W-REF2955 ILOZ-REF2956 IHIZ-REF2957 Z-REF2958
       LDZ-REF2959 INFO-REF2960))))

(CFFI:DEFCFUN ("clahr2_" %%CLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %CLAHR2 (N K NB A LDA TAU T LDT Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2961 ':INT32) (K-REF2962 ':INT32)
                              (NB-REF2963 ':INT32) (LDA-REF2965 ':INT32)
                              (LDT-REF2968 ':INT32) (LDY-REF2970 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2961 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2962 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2963 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2965 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF2968 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2970 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2964 A) (TAU-REF2966 TAU)
                                            (T-REF2967 T) (Y-REF2969 Y))
      (%%CLAHR2 N-REF2961 K-REF2962 NB-REF2963 A-REF2964 LDA-REF2965
       TAU-REF2966 T-REF2967 LDT-REF2968 Y-REF2969 LDY-REF2970))))

(CFFI:DEFCFUN ("claic1_" %%CLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :POINTER)
  (J :POINTER)
  (X :POINTER)
  (SEST :POINTER)
  (W :POINTER)
  (GAMMA :POINTER)
  (SESTPR :POINTER)
  (S :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %CLAIC1 (JOB J X SEST W GAMMA SESTPR S C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAIC1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SEST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) GAMMA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SESTPR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF2971 ':INT32) (J-REF2972 ':INT32)
                              (SEST-REF2974 ':FLOAT)
                              (GAMMA-REF2976
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (SESTPR-REF2977 ':FLOAT)
                              (S-REF2978
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (C-REF2979
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF2971 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF J-REF2972 :INT32) J)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF2974 :FLOAT) SEST)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              GAMMA-REF2976
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART GAMMA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART GAMMA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF2977 :FLOAT) SESTPR)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF2978 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF2979 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF2973 X) (W-REF2975 W))
      (%%CLAIC1 JOB-REF2971 J-REF2972 X-REF2973 SEST-REF2974 W-REF2975
       GAMMA-REF2976 SESTPR-REF2977 S-REF2978 C-REF2979))))

(CFFI:DEFCFUN ("clals0_" %%CLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (POLES :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (K :POINTER)
  (C :POINTER)
  (S :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLALS0
                   (ICOMPQ NL NR SQRE NRHS B LDB BX LDBX PERM GIVPTR GIVCOL
                    LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLALS0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF2980 ':INT32) (NL-REF2981 ':INT32)
                              (NR-REF2982 ':INT32) (SQRE-REF2983 ':INT32)
                              (NRHS-REF2984 ':INT32) (LDB-REF2986 ':INT32)
                              (LDBX-REF2988 ':INT32) (GIVPTR-REF2990 ':INT32)
                              (LDGCOL-REF2992 ':INT32) (LDGNUM-REF2994 ':INT32)
                              (K-REF2999 ':INT32) (C-REF3000 ':FLOAT)
                              (S-REF3001 ':FLOAT) (INFO-REF3003 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF2980 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF2981 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF2982 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF2983 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2984 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2986 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF2988 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF2990 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF2992 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF2994 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2999 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF3000 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF3001 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3003 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF2985 B) (BX-REF2987 BX)
                                            (PERM-REF2989 PERM)
                                            (GIVCOL-REF2991 GIVCOL)
                                            (GIVNUM-REF2993 GIVNUM)
                                            (POLES-REF2995 POLES)
                                            (DIFL-REF2996 DIFL)
                                            (DIFR-REF2997 DIFR) (Z-REF2998 Z)
                                            (RWORK-REF3002 RWORK))
      (%%CLALS0 ICOMPQ-REF2980 NL-REF2981 NR-REF2982 SQRE-REF2983 NRHS-REF2984
       B-REF2985 LDB-REF2986 BX-REF2987 LDBX-REF2988 PERM-REF2989
       GIVPTR-REF2990 GIVCOL-REF2991 LDGCOL-REF2992 GIVNUM-REF2993
       LDGNUM-REF2994 POLES-REF2995 DIFL-REF2996 DIFR-REF2997 Z-REF2998
       K-REF2999 C-REF3000 S-REF3001 RWORK-REF3002 INFO-REF3003))))

(CFFI:DEFCFUN ("clalsa_" %%CLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (K :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (POLES :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (PERM :POINTER)
  (GIVNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLALSA
                   (ICOMPQ SMLSIZ N NRHS B LDB BX LDBX U LDU VT K DIFL DIFR Z
                    POLES GIVPTR GIVCOL LDGCOL PERM GIVNUM C S RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLALSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF3004 ':INT32) (SMLSIZ-REF3005 ':INT32)
                              (N-REF3006 ':INT32) (NRHS-REF3007 ':INT32)
                              (LDB-REF3009 ':INT32) (LDBX-REF3011 ':INT32)
                              (LDU-REF3013 ':INT32) (LDGCOL-REF3022 ':INT32)
                              (INFO-REF3029 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF3004 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF3005 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3006 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3007 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3009 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF3011 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF3013 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF3022 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3029 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF3008 B) (BX-REF3010 BX)
                                            (U-REF3012 U) (VT-REF3014 VT)
                                            (K-REF3015 K) (DIFL-REF3016 DIFL)
                                            (DIFR-REF3017 DIFR) (Z-REF3018 Z)
                                            (POLES-REF3019 POLES)
                                            (GIVPTR-REF3020 GIVPTR)
                                            (GIVCOL-REF3021 GIVCOL)
                                            (PERM-REF3023 PERM)
                                            (GIVNUM-REF3024 GIVNUM)
                                            (C-REF3025 C) (S-REF3026 S)
                                            (RWORK-REF3027 RWORK)
                                            (IWORK-REF3028 IWORK))
      (%%CLALSA ICOMPQ-REF3004 SMLSIZ-REF3005 N-REF3006 NRHS-REF3007 B-REF3008
       LDB-REF3009 BX-REF3010 LDBX-REF3011 U-REF3012 LDU-REF3013 VT-REF3014
       K-REF3015 DIFL-REF3016 DIFR-REF3017 Z-REF3018 POLES-REF3019
       GIVPTR-REF3020 GIVCOL-REF3021 LDGCOL-REF3022 PERM-REF3023 GIVNUM-REF3024
       C-REF3025 S-REF3026 RWORK-REF3027 IWORK-REF3028 INFO-REF3029))))

(CFFI:DEFCFUN ("clalsd_" %%CLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLALSD
                   (UPLO SMLSIZ N NRHS D E B LDB RCOND RANK WORK RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLALSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF3031 ':INT32) (N-REF3032 ':INT32)
                              (NRHS-REF3033 ':INT32) (LDB-REF3037 ':INT32)
                              (RCOND-REF3038 ':FLOAT) (RANK-REF3039 ':INT32)
                              (INFO-REF3043 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF3031 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3032 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3033 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3037 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3038 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF3039 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3043 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3034 D) (E-REF3035 E)
                                            (B-REF3036 B) (WORK-REF3040 WORK)
                                            (RWORK-REF3041 RWORK)
                                            (IWORK-REF3042 IWORK))
      (%%CLALSD UPLO SMLSIZ-REF3031 N-REF3032 NRHS-REF3033 D-REF3034 E-REF3035
       B-REF3036 LDB-REF3037 RCOND-REF3038 RANK-REF3039 WORK-REF3040
       RWORK-REF3041 IWORK-REF3042 INFO-REF3043))))

(CFFI:DEFCFUN ("clamswlq_" %%CLAMSWLQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAMSWLQ
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAMSWLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3046 ':INT32) (N-REF3047 ':INT32)
                              (K-REF3048 ':INT32) (MB-REF3049 ':INT32)
                              (NB-REF3050 ':INT32) (LDA-REF3052 ':INT32)
                              (LDT-REF3054 ':INT32) (LDC-REF3056 ':INT32)
                              (LWORK-REF3058 ':INT32) (INFO-REF3059 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3046 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3047 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3048 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3049 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3050 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3052 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3054 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3056 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3058 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3059 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3051 A) (T-REF3053 T)
                                            (C-REF3055 C) (WORK-REF3057 WORK))
      (%%CLAMSWLQ SIDE TRANS M-REF3046 N-REF3047 K-REF3048 MB-REF3049
       NB-REF3050 A-REF3051 LDA-REF3052 T-REF3053 LDT-REF3054 C-REF3055
       LDC-REF3056 WORK-REF3057 LWORK-REF3058 INFO-REF3059))))

(CFFI:DEFCFUN ("clamtsqr_" %%CLAMTSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAMTSQR
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAMTSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3062 ':INT32) (N-REF3063 ':INT32)
                              (K-REF3064 ':INT32) (MB-REF3065 ':INT32)
                              (NB-REF3066 ':INT32) (LDA-REF3068 ':INT32)
                              (LDT-REF3070 ':INT32) (LDC-REF3072 ':INT32)
                              (LWORK-REF3074 ':INT32) (INFO-REF3075 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3062 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3063 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3064 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3065 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3066 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3068 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3070 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3072 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3074 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3075 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3067 A) (T-REF3069 T)
                                            (C-REF3071 C) (WORK-REF3073 WORK))
      (%%CLAMTSQR SIDE TRANS M-REF3062 N-REF3063 K-REF3064 MB-REF3065
       NB-REF3066 A-REF3067 LDA-REF3068 T-REF3069 LDT-REF3070 C-REF3071
       LDC-REF3072 WORK-REF3073 LWORK-REF3074 INFO-REF3075))))

(CFFI:DEFCFUN ("clangb_" %%CLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANGB (NORM N KL KU AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANGB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3077 ':INT32) (KL-REF3078 ':INT32)
                              (KU-REF3079 ':INT32) (LDAB-REF3081 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3077 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3078 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3079 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3081 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3080 AB) (WORK-REF3082 WORK))
      (%%CLANGB NORM N-REF3077 KL-REF3078 KU-REF3079 AB-REF3080 LDAB-REF3081
       WORK-REF3082))))

(CFFI:DEFCFUN ("clange_" %%CLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANGE (NORM M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3084 ':INT32) (N-REF3085 ':INT32)
                              (LDA-REF3087 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3084 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3085 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3087 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3086 A) (WORK-REF3088 WORK))
      (%%CLANGE NORM M-REF3084 N-REF3085 A-REF3086 LDA-REF3087 WORK-REF3088))))

(CFFI:DEFCFUN ("clangt_" %%CLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER))

(COMMON-LISP:DEFUN %CLANGT (NORM N DL D DU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANGT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        DU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3090 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3090 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF3091 DL) (D-REF3092 D)
                                            (DU-REF3093 DU))
      (%%CLANGT NORM N-REF3090 DL-REF3091 D-REF3092 DU-REF3093))))

(CFFI:DEFCFUN ("clanhb_" %%CLANHB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANHB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3096 ':INT32) (K-REF3097 ':INT32)
                              (LDAB-REF3099 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3096 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3097 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3099 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3098 AB) (WORK-REF3100 WORK))
      (%%CLANHB NORM UPLO N-REF3096 K-REF3097 AB-REF3098 LDAB-REF3099
       WORK-REF3100))))

(CFFI:DEFCFUN ("clanhe_" %%CLANHE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANHE (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3103 ':INT32) (LDA-REF3105 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3103 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3105 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3104 A) (WORK-REF3106 WORK))
      (%%CLANHE NORM UPLO N-REF3103 A-REF3104 LDA-REF3105 WORK-REF3106))))

(CFFI:DEFCFUN ("clanhf_" %%CLANHF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANHF (NORM TRANSR UPLO N A WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3110 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3110 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3111 A) (WORK-REF3112 WORK))
      (%%CLANHF NORM TRANSR UPLO N-REF3110 A-REF3111 WORK-REF3112))))

(CFFI:DEFCFUN ("clanhp_" %%CLANHP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANHP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3115 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3115 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3116 AP) (WORK-REF3117 WORK))
      (%%CLANHP NORM UPLO N-REF3115 AP-REF3116 WORK-REF3117))))

(CFFI:DEFCFUN ("clanhs_" %%CLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANHS (NORM N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3119 ':INT32) (LDA-REF3121 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3119 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3121 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3120 A) (WORK-REF3122 WORK))
      (%%CLANHS NORM N-REF3119 A-REF3120 LDA-REF3121 WORK-REF3122))))

(CFFI:DEFCFUN ("clanht_" %%CLANHT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER))

(COMMON-LISP:DEFUN %CLANHT (NORM N D E)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3124 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3124 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3125 D) (E-REF3126 E))
      (%%CLANHT NORM N-REF3124 D-REF3125 E-REF3126))))

(CFFI:DEFCFUN ("clansb_" %%CLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANSB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3129 ':INT32) (K-REF3130 ':INT32)
                              (LDAB-REF3132 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3129 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3130 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3132 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3131 AB) (WORK-REF3133 WORK))
      (%%CLANSB NORM UPLO N-REF3129 K-REF3130 AB-REF3131 LDAB-REF3132
       WORK-REF3133))))

(CFFI:DEFCFUN ("clansp_" %%CLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANSP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3136 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3136 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3137 AP) (WORK-REF3138 WORK))
      (%%CLANSP NORM UPLO N-REF3136 AP-REF3137 WORK-REF3138))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%CBBCSD %CBBCSD %%CBDSQR %CBDSQR %%CGBBRD %CGBBRD
  %%CGBCON %CGBCON %%CGBEQU %CGBEQU %%CGBEQUB %CGBEQUB %%CGBRFS %CGBRFS
  %%CGBRFSX %CGBRFSX %%CGBSV %CGBSV %%CGBSVX %CGBSVX %%CGBSVXX %CGBSVXX
  %%CGBTF2 %CGBTF2 %%CGBTRF %CGBTRF %%CGBTRS %CGBTRS %%CGEBAK %CGEBAK %%CGEBAL
  %CGEBAL %%CGEBD2 %CGEBD2 %%CGEBRD %CGEBRD %%CGECON %CGECON %%CGEEQU %CGEEQU
  %%CGEEQUB %CGEEQUB %%CGEES %CGEES %%CGEESX %CGEESX %%CGEEV %CGEEV %%CGEEVX
  %CGEEVX %%CGEHD2 %CGEHD2 %%CGEHRD %CGEHRD %%CGEJSV %CGEJSV %%CGELQ %CGELQ
  %%CGELQ2 %CGELQ2 %%CGELQF %CGELQF %%CGELQT %CGELQT %%CGELQT3 %CGELQT3 %%CGELS
  %CGELS %%CGELSD %CGELSD %%CGELSS %CGELSS %%CGELSY %CGELSY %%CGEMLQ %CGEMLQ
  %%CGEMLQT %CGEMLQT %%CGEMQR %CGEMQR %%CGEMQRT %CGEMQRT %%CGEQL2 %CGEQL2
  %%CGEQLF %CGEQLF %%CGEQP3 %CGEQP3 %%CGEQR %CGEQR %%CGEQR2 %CGEQR2 %%CGEQR2P
  %CGEQR2P %%CGEQRF %CGEQRF %%CGEQRFP %CGEQRFP %%CGEQRT %CGEQRT %%CGEQRT2
  %CGEQRT2 %%CGEQRT3 %CGEQRT3 %%CGERFS %CGERFS %%CGERFSX %CGERFSX %%CGERQ2
  %CGERQ2 %%CGERQF %CGERQF %%CGESC2 %CGESC2 %%CGESDD %CGESDD %%CGESV %CGESV
  %%CGESVD %CGESVD %%CGESVDQ %CGESVDQ %%CGESVDX %CGESVDX %%CGESVJ %CGESVJ
  %%CGESVX %CGESVX %%CGESVXX %CGESVXX %%CGETC2 %CGETC2 %%CGETF2 %CGETF2
  %%CGETRF %CGETRF %%CGETRF2 %CGETRF2 %%CGETRI %CGETRI %%CGETRS %CGETRS
  %%CGETSLS %CGETSLS %%CGGBAK %CGGBAK %%CGGBAL %CGGBAL %%CGGES %CGGES %%CGGES3
  %CGGES3 %%CGGESX %CGGESX %%CGGEV %CGGEV %%CGGEV3 %CGGEV3 %%CGGEVX %CGGEVX
  %%CGGGLM %CGGGLM %%CGGHD3 %CGGHD3 %%CGGHRD %CGGHRD %%CGGLSE %CGGLSE %%CGGQRF
  %CGGQRF %%CGGRQF %CGGRQF %%CGGSVD3 %CGGSVD3 %%CGGSVP3 %CGGSVP3 %%CGSVJ0
  %CGSVJ0 %%CGSVJ1 %CGSVJ1 %%CGTCON %CGTCON %%CGTRFS %CGTRFS %%CGTSV %CGTSV
  %%CGTSVX %CGTSVX %%CGTTRF %CGTTRF %%CGTTRS %CGTTRS %%CGTTS2 %CGTTS2
  %%CHB2ST_KERNELS %CHB2ST_KERNELS %%CHBEV %CHBEV %%CHBEV_2STAGE %CHBEV_2STAGE
  %%CHBEVD %CHBEVD %%CHBEVD_2STAGE %CHBEVD_2STAGE %%CHBEVX %CHBEVX
  %%CHBEVX_2STAGE %CHBEVX_2STAGE %%CHBGST %CHBGST %%CHBGV %CHBGV %%CHBGVD
  %CHBGVD %%CHBGVX %CHBGVX %%CHBTRD %CHBTRD %%CHECON %CHECON %%CHECON_3
  %CHECON_3 %%CHECON_ROOK %CHECON_ROOK %%CHEEQUB %CHEEQUB %%CHEEV %CHEEV
  %%CHEEV_2STAGE %CHEEV_2STAGE %%CHEEVD %CHEEVD %%CHEEVD_2STAGE %CHEEVD_2STAGE
  %%CHEEVR %CHEEVR %%CHEEVR_2STAGE %CHEEVR_2STAGE %%CHEEVX %CHEEVX
  %%CHEEVX_2STAGE %CHEEVX_2STAGE %%CHEGS2 %CHEGS2 %%CHEGST %CHEGST %%CHEGV
  %CHEGV %%CHEGV_2STAGE %CHEGV_2STAGE %%CHEGVD %CHEGVD %%CHEGVX %CHEGVX
  %%CHERFS %CHERFS %%CHERFSX %CHERFSX %%CHESV %CHESV %%CHESV_AA %CHESV_AA
  %%CHESV_AA_2STAGE %CHESV_AA_2STAGE %%CHESV_RK %CHESV_RK %%CHESV_ROOK
  %CHESV_ROOK %%CHESVX %CHESVX %%CHESVXX %CHESVXX %%CHESWAPR %CHESWAPR %%CHETD2
  %CHETD2 %%CHETF2 %CHETF2 %%CHETF2_RK %CHETF2_RK %%CHETF2_ROOK %CHETF2_ROOK
  %%CHETRD %CHETRD %%CHETRD_2STAGE %CHETRD_2STAGE %%CHETRD_HE2HB %CHETRD_HE2HB
  %%CHETRF %CHETRF %%CHETRF_AA %CHETRF_AA %%CHETRF_AA_2STAGE %CHETRF_AA_2STAGE
  %%CHETRF_RK %CHETRF_RK %%CHETRF_ROOK %CHETRF_ROOK %%CHETRI %CHETRI %%CHETRI2
  %CHETRI2 %%CHETRI2X %CHETRI2X %%CHETRI_3 %CHETRI_3 %%CHETRI_3X %CHETRI_3X
  %%CHETRI_ROOK %CHETRI_ROOK %%CHETRS %CHETRS %%CHETRS2 %CHETRS2 %%CHETRS_3
  %CHETRS_3 %%CHETRS_AA %CHETRS_AA %%CHETRS_AA_2STAGE %CHETRS_AA_2STAGE
  %%CHETRS_ROOK %CHETRS_ROOK %%CHFRK %CHFRK %%CHGEQZ %CHGEQZ %%CHLA_TRANSTYPE
  %CHLA_TRANSTYPE %%CHPCON %CHPCON %%CHPEV %CHPEV %%CHPEVD %CHPEVD %%CHPEVX
  %CHPEVX %%CHPGST %CHPGST %%CHPGV %CHPGV %%CHPGVD %CHPGVD %%CHPGVX %CHPGVX
  %%CHPRFS %CHPRFS %%CHPSV %CHPSV %%CHPSVX %CHPSVX %%CHPTRD %CHPTRD %%CHPTRF
  %CHPTRF %%CHPTRI %CHPTRI %%CHPTRS %CHPTRS %%CHSEIN %CHSEIN %%CHSEQR %CHSEQR
  %%CLA_GBAMV %CLA_GBAMV %%CLA_GBRCOND_C %CLA_GBRCOND_C %%CLA_GBRCOND_X
  %CLA_GBRCOND_X %%CLA_GBRFSX_EXTENDED %CLA_GBRFSX_EXTENDED %%CLA_GBRPVGRW
  %CLA_GBRPVGRW %%CLA_GEAMV %CLA_GEAMV %%CLA_GERCOND_C %CLA_GERCOND_C
  %%CLA_GERCOND_X %CLA_GERCOND_X %%CLA_GERFSX_EXTENDED %CLA_GERFSX_EXTENDED
  %%CLA_GERPVGRW %CLA_GERPVGRW %%CLA_HEAMV %CLA_HEAMV %%CLA_HERCOND_C
  %CLA_HERCOND_C %%CLA_HERCOND_X %CLA_HERCOND_X %%CLA_HERFSX_EXTENDED
  %CLA_HERFSX_EXTENDED %%CLA_HERPVGRW %CLA_HERPVGRW %%CLA_LIN_BERR
  %CLA_LIN_BERR %%CLA_PORCOND_C %CLA_PORCOND_C %%CLA_PORCOND_X %CLA_PORCOND_X
  %%CLA_PORFSX_EXTENDED %CLA_PORFSX_EXTENDED %%CLA_PORPVGRW %CLA_PORPVGRW
  %%CLA_SYAMV %CLA_SYAMV %%CLA_SYRCOND_C %CLA_SYRCOND_C %%CLA_SYRCOND_X
  %CLA_SYRCOND_X %%CLA_SYRFSX_EXTENDED %CLA_SYRFSX_EXTENDED %%CLA_SYRPVGRW
  %CLA_SYRPVGRW %%CLA_WWADDW %CLA_WWADDW %%CLABRD %CLABRD %%CLACGV %CLACGV
  %%CLACN2 %CLACN2 %%CLACON %CLACON %%CLACP2 %CLACP2 %%CLACPY %CLACPY %%CLACRM
  %CLACRM %%CLACRT %CLACRT %%CLADIV %CLADIV %%CLAED0 %CLAED0 %%CLAED7 %CLAED7
  %%CLAED8 %CLAED8 %%CLAEIN %CLAEIN %%CLAESY %CLAESY %%CLAEV2 %CLAEV2 %%CLAG2Z
  %CLAG2Z %%CLAGS2 %CLAGS2 %%CLAGTM %CLAGTM %%CLAHEF %CLAHEF %%CLAHEF_AA
  %CLAHEF_AA %%CLAHEF_RK %CLAHEF_RK %%CLAHEF_ROOK %CLAHEF_ROOK %%CLAHQR %CLAHQR
  %%CLAHR2 %CLAHR2 %%CLAIC1 %CLAIC1 %%CLALS0 %CLALS0 %%CLALSA %CLALSA %%CLALSD
  %CLALSD %%CLAMSWLQ %CLAMSWLQ %%CLAMTSQR %CLAMTSQR %%CLANGB %CLANGB %%CLANGE
  %CLANGE %%CLANGT %CLANGT %%CLANHB %CLANHB %%CLANHE %CLANHE %%CLANHF %CLANHF
  %%CLANHP %CLANHP %%CLANHS %CLANHS %%CLANHT %CLANHT %%CLANSB %CLANSB %%CLANSP
  %CLANSP))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
                                        '(("CBBCSD" "cbbcsd_" %%CBBCSD %CBBCSD)
                                          ("CBDSQR" "cbdsqr_" %%CBDSQR %CBDSQR)
                                          ("CGBBRD" "cgbbrd_" %%CGBBRD %CGBBRD)
                                          ("CGBCON" "cgbcon_" %%CGBCON %CGBCON)
                                          ("CGBEQU" "cgbequ_" %%CGBEQU %CGBEQU)
                                          ("CGBEQUB" "cgbequb_" %%CGBEQUB
                                           %CGBEQUB)
                                          ("CGBRFS" "cgbrfs_" %%CGBRFS %CGBRFS)
                                          ("CGBRFSX" "cgbrfsx_" %%CGBRFSX
                                           %CGBRFSX)
                                          ("CGBSV" "cgbsv_" %%CGBSV %CGBSV)
                                          ("CGBSVX" "cgbsvx_" %%CGBSVX %CGBSVX)
                                          ("CGBSVXX" "cgbsvxx_" %%CGBSVXX
                                           %CGBSVXX)
                                          ("CGBTF2" "cgbtf2_" %%CGBTF2 %CGBTF2)
                                          ("CGBTRF" "cgbtrf_" %%CGBTRF %CGBTRF)
                                          ("CGBTRS" "cgbtrs_" %%CGBTRS %CGBTRS)
                                          ("CGEBAK" "cgebak_" %%CGEBAK %CGEBAK)
                                          ("CGEBAL" "cgebal_" %%CGEBAL %CGEBAL)
                                          ("CGEBD2" "cgebd2_" %%CGEBD2 %CGEBD2)
                                          ("CGEBRD" "cgebrd_" %%CGEBRD %CGEBRD)
                                          ("CGECON" "cgecon_" %%CGECON %CGECON)
                                          ("CGEEQU" "cgeequ_" %%CGEEQU %CGEEQU)
                                          ("CGEEQUB" "cgeequb_" %%CGEEQUB
                                           %CGEEQUB)
                                          ("CGEES" "cgees_" %%CGEES %CGEES)
                                          ("CGEESX" "cgeesx_" %%CGEESX %CGEESX)
                                          ("CGEEV" "cgeev_" %%CGEEV %CGEEV)
                                          ("CGEEVX" "cgeevx_" %%CGEEVX %CGEEVX)
                                          ("CGEHD2" "cgehd2_" %%CGEHD2 %CGEHD2)
                                          ("CGEHRD" "cgehrd_" %%CGEHRD %CGEHRD)
                                          ("CGEJSV" "cgejsv_" %%CGEJSV %CGEJSV)
                                          ("CGELQ" "cgelq_" %%CGELQ %CGELQ)
                                          ("CGELQ2" "cgelq2_" %%CGELQ2 %CGELQ2)
                                          ("CGELQF" "cgelqf_" %%CGELQF %CGELQF)
                                          ("CGELQT" "cgelqt_" %%CGELQT %CGELQT)
                                          ("CGELQT3" "cgelqt3_" %%CGELQT3
                                           %CGELQT3)
                                          ("CGELS" "cgels_" %%CGELS %CGELS)
                                          ("CGELSD" "cgelsd_" %%CGELSD %CGELSD)
                                          ("CGELSS" "cgelss_" %%CGELSS %CGELSS)
                                          ("CGELSY" "cgelsy_" %%CGELSY %CGELSY)
                                          ("CGEMLQ" "cgemlq_" %%CGEMLQ %CGEMLQ)
                                          ("CGEMLQT" "cgemlqt_" %%CGEMLQT
                                           %CGEMLQT)
                                          ("CGEMQR" "cgemqr_" %%CGEMQR %CGEMQR)
                                          ("CGEMQRT" "cgemqrt_" %%CGEMQRT
                                           %CGEMQRT)
                                          ("CGEQL2" "cgeql2_" %%CGEQL2 %CGEQL2)
                                          ("CGEQLF" "cgeqlf_" %%CGEQLF %CGEQLF)
                                          ("CGEQP3" "cgeqp3_" %%CGEQP3 %CGEQP3)
                                          ("CGEQR" "cgeqr_" %%CGEQR %CGEQR)
                                          ("CGEQR2" "cgeqr2_" %%CGEQR2 %CGEQR2)
                                          ("CGEQR2P" "cgeqr2p_" %%CGEQR2P
                                           %CGEQR2P)
                                          ("CGEQRF" "cgeqrf_" %%CGEQRF %CGEQRF)
                                          ("CGEQRFP" "cgeqrfp_" %%CGEQRFP
                                           %CGEQRFP)
                                          ("CGEQRT" "cgeqrt_" %%CGEQRT %CGEQRT)
                                          ("CGEQRT2" "cgeqrt2_" %%CGEQRT2
                                           %CGEQRT2)
                                          ("CGEQRT3" "cgeqrt3_" %%CGEQRT3
                                           %CGEQRT3)
                                          ("CGERFS" "cgerfs_" %%CGERFS %CGERFS)
                                          ("CGERFSX" "cgerfsx_" %%CGERFSX
                                           %CGERFSX)
                                          ("CGERQ2" "cgerq2_" %%CGERQ2 %CGERQ2)
                                          ("CGERQF" "cgerqf_" %%CGERQF %CGERQF)
                                          ("CGESC2" "cgesc2_" %%CGESC2 %CGESC2)
                                          ("CGESDD" "cgesdd_" %%CGESDD %CGESDD)
                                          ("CGESV" "cgesv_" %%CGESV %CGESV)
                                          ("CGESVD" "cgesvd_" %%CGESVD %CGESVD)
                                          ("CGESVDQ" "cgesvdq_" %%CGESVDQ
                                           %CGESVDQ)
                                          ("CGESVDX" "cgesvdx_" %%CGESVDX
                                           %CGESVDX)
                                          ("CGESVJ" "cgesvj_" %%CGESVJ %CGESVJ)
                                          ("CGESVX" "cgesvx_" %%CGESVX %CGESVX)
                                          ("CGESVXX" "cgesvxx_" %%CGESVXX
                                           %CGESVXX)
                                          ("CGETC2" "cgetc2_" %%CGETC2 %CGETC2)
                                          ("CGETF2" "cgetf2_" %%CGETF2 %CGETF2)
                                          ("CGETRF" "cgetrf_" %%CGETRF %CGETRF)
                                          ("CGETRF2" "cgetrf2_" %%CGETRF2
                                           %CGETRF2)
                                          ("CGETRI" "cgetri_" %%CGETRI %CGETRI)
                                          ("CGETRS" "cgetrs_" %%CGETRS %CGETRS)
                                          ("CGETSLS" "cgetsls_" %%CGETSLS
                                           %CGETSLS)
                                          ("CGGBAK" "cggbak_" %%CGGBAK %CGGBAK)
                                          ("CGGBAL" "cggbal_" %%CGGBAL %CGGBAL)
                                          ("CGGES" "cgges_" %%CGGES %CGGES)
                                          ("CGGES3" "cgges3_" %%CGGES3 %CGGES3)
                                          ("CGGESX" "cggesx_" %%CGGESX %CGGESX)
                                          ("CGGEV" "cggev_" %%CGGEV %CGGEV)
                                          ("CGGEV3" "cggev3_" %%CGGEV3 %CGGEV3)
                                          ("CGGEVX" "cggevx_" %%CGGEVX %CGGEVX)
                                          ("CGGGLM" "cggglm_" %%CGGGLM %CGGGLM)
                                          ("CGGHD3" "cgghd3_" %%CGGHD3 %CGGHD3)
                                          ("CGGHRD" "cgghrd_" %%CGGHRD %CGGHRD)
                                          ("CGGLSE" "cgglse_" %%CGGLSE %CGGLSE)
                                          ("CGGQRF" "cggqrf_" %%CGGQRF %CGGQRF)
                                          ("CGGRQF" "cggrqf_" %%CGGRQF %CGGRQF)
                                          ("CGGSVD3" "cggsvd3_" %%CGGSVD3
                                           %CGGSVD3)
                                          ("CGGSVP3" "cggsvp3_" %%CGGSVP3
                                           %CGGSVP3)
                                          ("CGSVJ0" "cgsvj0_" %%CGSVJ0 %CGSVJ0)
                                          ("CGSVJ1" "cgsvj1_" %%CGSVJ1 %CGSVJ1)
                                          ("CGTCON" "cgtcon_" %%CGTCON %CGTCON)
                                          ("CGTRFS" "cgtrfs_" %%CGTRFS %CGTRFS)
                                          ("CGTSV" "cgtsv_" %%CGTSV %CGTSV)
                                          ("CGTSVX" "cgtsvx_" %%CGTSVX %CGTSVX)
                                          ("CGTTRF" "cgttrf_" %%CGTTRF %CGTTRF)
                                          ("CGTTRS" "cgttrs_" %%CGTTRS %CGTTRS)
                                          ("CGTTS2" "cgtts2_" %%CGTTS2 %CGTTS2)
                                          ("CHB2ST_KERNELS" "chb2st_kernels_"
                                           %%CHB2ST_KERNELS %CHB2ST_KERNELS)
                                          ("CHBEV" "chbev_" %%CHBEV %CHBEV)
                                          ("CHBEV_2STAGE" "chbev_2stage_"
                                           %%CHBEV_2STAGE %CHBEV_2STAGE)
                                          ("CHBEVD" "chbevd_" %%CHBEVD %CHBEVD)
                                          ("CHBEVD_2STAGE" "chbevd_2stage_"
                                           %%CHBEVD_2STAGE %CHBEVD_2STAGE)
                                          ("CHBEVX" "chbevx_" %%CHBEVX %CHBEVX)
                                          ("CHBEVX_2STAGE" "chbevx_2stage_"
                                           %%CHBEVX_2STAGE %CHBEVX_2STAGE)
                                          ("CHBGST" "chbgst_" %%CHBGST %CHBGST)
                                          ("CHBGV" "chbgv_" %%CHBGV %CHBGV)
                                          ("CHBGVD" "chbgvd_" %%CHBGVD %CHBGVD)
                                          ("CHBGVX" "chbgvx_" %%CHBGVX %CHBGVX)
                                          ("CHBTRD" "chbtrd_" %%CHBTRD %CHBTRD)
                                          ("CHECON" "checon_" %%CHECON %CHECON)
                                          ("CHECON_3" "checon_3_" %%CHECON_3
                                           %CHECON_3)
                                          ("CHECON_ROOK" "checon_rook_"
                                           %%CHECON_ROOK %CHECON_ROOK)
                                          ("CHEEQUB" "cheequb_" %%CHEEQUB
                                           %CHEEQUB)
                                          ("CHEEV" "cheev_" %%CHEEV %CHEEV)
                                          ("CHEEV_2STAGE" "cheev_2stage_"
                                           %%CHEEV_2STAGE %CHEEV_2STAGE)
                                          ("CHEEVD" "cheevd_" %%CHEEVD %CHEEVD)
                                          ("CHEEVD_2STAGE" "cheevd_2stage_"
                                           %%CHEEVD_2STAGE %CHEEVD_2STAGE)
                                          ("CHEEVR" "cheevr_" %%CHEEVR %CHEEVR)
                                          ("CHEEVR_2STAGE" "cheevr_2stage_"
                                           %%CHEEVR_2STAGE %CHEEVR_2STAGE)
                                          ("CHEEVX" "cheevx_" %%CHEEVX %CHEEVX)
                                          ("CHEEVX_2STAGE" "cheevx_2stage_"
                                           %%CHEEVX_2STAGE %CHEEVX_2STAGE)
                                          ("CHEGS2" "chegs2_" %%CHEGS2 %CHEGS2)
                                          ("CHEGST" "chegst_" %%CHEGST %CHEGST)
                                          ("CHEGV" "chegv_" %%CHEGV %CHEGV)
                                          ("CHEGV_2STAGE" "chegv_2stage_"
                                           %%CHEGV_2STAGE %CHEGV_2STAGE)
                                          ("CHEGVD" "chegvd_" %%CHEGVD %CHEGVD)
                                          ("CHEGVX" "chegvx_" %%CHEGVX %CHEGVX)
                                          ("CHERFS" "cherfs_" %%CHERFS %CHERFS)
                                          ("CHERFSX" "cherfsx_" %%CHERFSX
                                           %CHERFSX)
                                          ("CHESV" "chesv_" %%CHESV %CHESV)
                                          ("CHESV_AA" "chesv_aa_" %%CHESV_AA
                                           %CHESV_AA)
                                          ("CHESV_AA_2STAGE" "chesv_aa_2stage_"
                                           %%CHESV_AA_2STAGE %CHESV_AA_2STAGE)
                                          ("CHESV_RK" "chesv_rk_" %%CHESV_RK
                                           %CHESV_RK)
                                          ("CHESV_ROOK" "chesv_rook_"
                                           %%CHESV_ROOK %CHESV_ROOK)
                                          ("CHESVX" "chesvx_" %%CHESVX %CHESVX)
                                          ("CHESVXX" "chesvxx_" %%CHESVXX
                                           %CHESVXX)
                                          ("CHESWAPR" "cheswapr_" %%CHESWAPR
                                           %CHESWAPR)
                                          ("CHETD2" "chetd2_" %%CHETD2 %CHETD2)
                                          ("CHETF2" "chetf2_" %%CHETF2 %CHETF2)
                                          ("CHETF2_RK" "chetf2_rk_" %%CHETF2_RK
                                           %CHETF2_RK)
                                          ("CHETF2_ROOK" "chetf2_rook_"
                                           %%CHETF2_ROOK %CHETF2_ROOK)
                                          ("CHETRD" "chetrd_" %%CHETRD %CHETRD)
                                          ("CHETRD_2STAGE" "chetrd_2stage_"
                                           %%CHETRD_2STAGE %CHETRD_2STAGE)
                                          ("CHETRD_HE2HB" "chetrd_he2hb_"
                                           %%CHETRD_HE2HB %CHETRD_HE2HB)
                                          ("CHETRF" "chetrf_" %%CHETRF %CHETRF)
                                          ("CHETRF_AA" "chetrf_aa_" %%CHETRF_AA
                                           %CHETRF_AA)
                                          ("CHETRF_AA_2STAGE"
                                           "chetrf_aa_2stage_"
                                           %%CHETRF_AA_2STAGE
                                           %CHETRF_AA_2STAGE)
                                          ("CHETRF_RK" "chetrf_rk_" %%CHETRF_RK
                                           %CHETRF_RK)
                                          ("CHETRF_ROOK" "chetrf_rook_"
                                           %%CHETRF_ROOK %CHETRF_ROOK)
                                          ("CHETRI" "chetri_" %%CHETRI %CHETRI)
                                          ("CHETRI2" "chetri2_" %%CHETRI2
                                           %CHETRI2)
                                          ("CHETRI2X" "chetri2x_" %%CHETRI2X
                                           %CHETRI2X)
                                          ("CHETRI_3" "chetri_3_" %%CHETRI_3
                                           %CHETRI_3)
                                          ("CHETRI_3X" "chetri_3x_" %%CHETRI_3X
                                           %CHETRI_3X)
                                          ("CHETRI_ROOK" "chetri_rook_"
                                           %%CHETRI_ROOK %CHETRI_ROOK)
                                          ("CHETRS" "chetrs_" %%CHETRS %CHETRS)
                                          ("CHETRS2" "chetrs2_" %%CHETRS2
                                           %CHETRS2)
                                          ("CHETRS_3" "chetrs_3_" %%CHETRS_3
                                           %CHETRS_3)
                                          ("CHETRS_AA" "chetrs_aa_" %%CHETRS_AA
                                           %CHETRS_AA)
                                          ("CHETRS_AA_2STAGE"
                                           "chetrs_aa_2stage_"
                                           %%CHETRS_AA_2STAGE
                                           %CHETRS_AA_2STAGE)
                                          ("CHETRS_ROOK" "chetrs_rook_"
                                           %%CHETRS_ROOK %CHETRS_ROOK)
                                          ("CHFRK" "chfrk_" %%CHFRK %CHFRK)
                                          ("CHGEQZ" "chgeqz_" %%CHGEQZ %CHGEQZ)
                                          ("CHLA_TRANSTYPE" "chla_transtype_"
                                           %%CHLA_TRANSTYPE %CHLA_TRANSTYPE)
                                          ("CHPCON" "chpcon_" %%CHPCON %CHPCON)
                                          ("CHPEV" "chpev_" %%CHPEV %CHPEV)
                                          ("CHPEVD" "chpevd_" %%CHPEVD %CHPEVD)
                                          ("CHPEVX" "chpevx_" %%CHPEVX %CHPEVX)
                                          ("CHPGST" "chpgst_" %%CHPGST %CHPGST)
                                          ("CHPGV" "chpgv_" %%CHPGV %CHPGV)
                                          ("CHPGVD" "chpgvd_" %%CHPGVD %CHPGVD)
                                          ("CHPGVX" "chpgvx_" %%CHPGVX %CHPGVX)
                                          ("CHPRFS" "chprfs_" %%CHPRFS %CHPRFS)
                                          ("CHPSV" "chpsv_" %%CHPSV %CHPSV)
                                          ("CHPSVX" "chpsvx_" %%CHPSVX %CHPSVX)
                                          ("CHPTRD" "chptrd_" %%CHPTRD %CHPTRD)
                                          ("CHPTRF" "chptrf_" %%CHPTRF %CHPTRF)
                                          ("CHPTRI" "chptri_" %%CHPTRI %CHPTRI)
                                          ("CHPTRS" "chptrs_" %%CHPTRS %CHPTRS)
                                          ("CHSEIN" "chsein_" %%CHSEIN %CHSEIN)
                                          ("CHSEQR" "chseqr_" %%CHSEQR %CHSEQR)
                                          ("CLA_GBAMV" "cla_gbamv_" %%CLA_GBAMV
                                           %CLA_GBAMV)
                                          ("CLA_GBRCOND_C" "cla_gbrcond_c_"
                                           %%CLA_GBRCOND_C %CLA_GBRCOND_C)
                                          ("CLA_GBRCOND_X" "cla_gbrcond_x_"
                                           %%CLA_GBRCOND_X %CLA_GBRCOND_X)
                                          ("CLA_GBRFSX_EXTENDED"
                                           "cla_gbrfsx_extended_"
                                           %%CLA_GBRFSX_EXTENDED
                                           %CLA_GBRFSX_EXTENDED)
                                          ("CLA_GBRPVGRW" "cla_gbrpvgrw_"
                                           %%CLA_GBRPVGRW %CLA_GBRPVGRW)
                                          ("CLA_GEAMV" "cla_geamv_" %%CLA_GEAMV
                                           %CLA_GEAMV)
                                          ("CLA_GERCOND_C" "cla_gercond_c_"
                                           %%CLA_GERCOND_C %CLA_GERCOND_C)
                                          ("CLA_GERCOND_X" "cla_gercond_x_"
                                           %%CLA_GERCOND_X %CLA_GERCOND_X)
                                          ("CLA_GERFSX_EXTENDED"
                                           "cla_gerfsx_extended_"
                                           %%CLA_GERFSX_EXTENDED
                                           %CLA_GERFSX_EXTENDED)
                                          ("CLA_GERPVGRW" "cla_gerpvgrw_"
                                           %%CLA_GERPVGRW %CLA_GERPVGRW)
                                          ("CLA_HEAMV" "cla_heamv_" %%CLA_HEAMV
                                           %CLA_HEAMV)
                                          ("CLA_HERCOND_C" "cla_hercond_c_"
                                           %%CLA_HERCOND_C %CLA_HERCOND_C)
                                          ("CLA_HERCOND_X" "cla_hercond_x_"
                                           %%CLA_HERCOND_X %CLA_HERCOND_X)
                                          ("CLA_HERFSX_EXTENDED"
                                           "cla_herfsx_extended_"
                                           %%CLA_HERFSX_EXTENDED
                                           %CLA_HERFSX_EXTENDED)
                                          ("CLA_HERPVGRW" "cla_herpvgrw_"
                                           %%CLA_HERPVGRW %CLA_HERPVGRW)
                                          ("CLA_LIN_BERR" "cla_lin_berr_"
                                           %%CLA_LIN_BERR %CLA_LIN_BERR)
                                          ("CLA_PORCOND_C" "cla_porcond_c_"
                                           %%CLA_PORCOND_C %CLA_PORCOND_C)
                                          ("CLA_PORCOND_X" "cla_porcond_x_"
                                           %%CLA_PORCOND_X %CLA_PORCOND_X)
                                          ("CLA_PORFSX_EXTENDED"
                                           "cla_porfsx_extended_"
                                           %%CLA_PORFSX_EXTENDED
                                           %CLA_PORFSX_EXTENDED)
                                          ("CLA_PORPVGRW" "cla_porpvgrw_"
                                           %%CLA_PORPVGRW %CLA_PORPVGRW)
                                          ("CLA_SYAMV" "cla_syamv_" %%CLA_SYAMV
                                           %CLA_SYAMV)
                                          ("CLA_SYRCOND_C" "cla_syrcond_c_"
                                           %%CLA_SYRCOND_C %CLA_SYRCOND_C)
                                          ("CLA_SYRCOND_X" "cla_syrcond_x_"
                                           %%CLA_SYRCOND_X %CLA_SYRCOND_X)
                                          ("CLA_SYRFSX_EXTENDED"
                                           "cla_syrfsx_extended_"
                                           %%CLA_SYRFSX_EXTENDED
                                           %CLA_SYRFSX_EXTENDED)
                                          ("CLA_SYRPVGRW" "cla_syrpvgrw_"
                                           %%CLA_SYRPVGRW %CLA_SYRPVGRW)
                                          ("CLA_WWADDW" "cla_wwaddw_"
                                           %%CLA_WWADDW %CLA_WWADDW)
                                          ("CLABRD" "clabrd_" %%CLABRD %CLABRD)
                                          ("CLACGV" "clacgv_" %%CLACGV %CLACGV)
                                          ("CLACN2" "clacn2_" %%CLACN2 %CLACN2)
                                          ("CLACON" "clacon_" %%CLACON %CLACON)
                                          ("CLACP2" "clacp2_" %%CLACP2 %CLACP2)
                                          ("CLACPY" "clacpy_" %%CLACPY %CLACPY)
                                          ("CLACRM" "clacrm_" %%CLACRM %CLACRM)
                                          ("CLACRT" "clacrt_" %%CLACRT %CLACRT)
                                          ("CLADIV" "cladiv_" %%CLADIV %CLADIV)
                                          ("CLAED0" "claed0_" %%CLAED0 %CLAED0)
                                          ("CLAED7" "claed7_" %%CLAED7 %CLAED7)
                                          ("CLAED8" "claed8_" %%CLAED8 %CLAED8)
                                          ("CLAEIN" "claein_" %%CLAEIN %CLAEIN)
                                          ("CLAESY" "claesy_" %%CLAESY %CLAESY)
                                          ("CLAEV2" "claev2_" %%CLAEV2 %CLAEV2)
                                          ("CLAG2Z" "clag2z_" %%CLAG2Z %CLAG2Z)
                                          ("CLAGS2" "clags2_" %%CLAGS2 %CLAGS2)
                                          ("CLAGTM" "clagtm_" %%CLAGTM %CLAGTM)
                                          ("CLAHEF" "clahef_" %%CLAHEF %CLAHEF)
                                          ("CLAHEF_AA" "clahef_aa_" %%CLAHEF_AA
                                           %CLAHEF_AA)
                                          ("CLAHEF_RK" "clahef_rk_" %%CLAHEF_RK
                                           %CLAHEF_RK)
                                          ("CLAHEF_ROOK" "clahef_rook_"
                                           %%CLAHEF_ROOK %CLAHEF_ROOK)
                                          ("CLAHQR" "clahqr_" %%CLAHQR %CLAHQR)
                                          ("CLAHR2" "clahr2_" %%CLAHR2 %CLAHR2)
                                          ("CLAIC1" "claic1_" %%CLAIC1 %CLAIC1)
                                          ("CLALS0" "clals0_" %%CLALS0 %CLALS0)
                                          ("CLALSA" "clalsa_" %%CLALSA %CLALSA)
                                          ("CLALSD" "clalsd_" %%CLALSD %CLALSD)
                                          ("CLAMSWLQ" "clamswlq_" %%CLAMSWLQ
                                           %CLAMSWLQ)
                                          ("CLAMTSQR" "clamtsqr_" %%CLAMTSQR
                                           %CLAMTSQR)
                                          ("CLANGB" "clangb_" %%CLANGB %CLANGB)
                                          ("CLANGE" "clange_" %%CLANGE %CLANGE)
                                          ("CLANGT" "clangt_" %%CLANGT %CLANGT)
                                          ("CLANHB" "clanhb_" %%CLANHB %CLANHB)
                                          ("CLANHE" "clanhe_" %%CLANHE %CLANHE)
                                          ("CLANHF" "clanhf_" %%CLANHF %CLANHF)
                                          ("CLANHP" "clanhp_" %%CLANHP %CLANHP)
                                          ("CLANHS" "clanhs_" %%CLANHS %CLANHS)
                                          ("CLANHT" "clanht_" %%CLANHT %CLANHT)
                                          ("CLANSB" "clansb_" %%CLANSB %CLANSB)
                                          ("CLANSP" "clansp_" %%CLANSP
                                           %CLANSP)))

(COMMON-LISP:EXPORT
 '(%CBBCSD %CBDSQR %CGBBRD %CGBCON %CGBEQU %CGBEQUB %CGBRFS %CGBRFSX %CGBSV
   %CGBSVX %CGBSVXX %CGBTF2 %CGBTRF %CGBTRS %CGEBAK %CGEBAL %CGEBD2 %CGEBRD
   %CGECON %CGEEQU %CGEEQUB %CGEES %CGEESX %CGEEV %CGEEVX %CGEHD2 %CGEHRD
   %CGEJSV %CGELQ %CGELQ2 %CGELQF %CGELQT %CGELQT3 %CGELS %CGELSD %CGELSS
   %CGELSY %CGEMLQ %CGEMLQT %CGEMQR %CGEMQRT %CGEQL2 %CGEQLF %CGEQP3 %CGEQR
   %CGEQR2 %CGEQR2P %CGEQRF %CGEQRFP %CGEQRT %CGEQRT2 %CGEQRT3 %CGERFS %CGERFSX
   %CGERQ2 %CGERQF %CGESC2 %CGESDD %CGESV %CGESVD %CGESVDQ %CGESVDX %CGESVJ
   %CGESVX %CGESVXX %CGETC2 %CGETF2 %CGETRF %CGETRF2 %CGETRI %CGETRS %CGETSLS
   %CGGBAK %CGGBAL %CGGES %CGGES3 %CGGESX %CGGEV %CGGEV3 %CGGEVX %CGGGLM
   %CGGHD3 %CGGHRD %CGGLSE %CGGQRF %CGGRQF %CGGSVD3 %CGGSVP3 %CGSVJ0 %CGSVJ1
   %CGTCON %CGTRFS %CGTSV %CGTSVX %CGTTRF %CGTTRS %CGTTS2 %CHB2ST_KERNELS
   %CHBEV %CHBEV_2STAGE %CHBEVD %CHBEVD_2STAGE %CHBEVX %CHBEVX_2STAGE %CHBGST
   %CHBGV %CHBGVD %CHBGVX %CHBTRD %CHECON %CHECON_3 %CHECON_ROOK %CHEEQUB
   %CHEEV %CHEEV_2STAGE %CHEEVD %CHEEVD_2STAGE %CHEEVR %CHEEVR_2STAGE %CHEEVX
   %CHEEVX_2STAGE %CHEGS2 %CHEGST %CHEGV %CHEGV_2STAGE %CHEGVD %CHEGVX %CHERFS
   %CHERFSX %CHESV %CHESV_AA %CHESV_AA_2STAGE %CHESV_RK %CHESV_ROOK %CHESVX
   %CHESVXX %CHESWAPR %CHETD2 %CHETF2 %CHETF2_RK %CHETF2_ROOK %CHETRD
   %CHETRD_2STAGE %CHETRD_HE2HB %CHETRF %CHETRF_AA %CHETRF_AA_2STAGE %CHETRF_RK
   %CHETRF_ROOK %CHETRI %CHETRI2 %CHETRI2X %CHETRI_3 %CHETRI_3X %CHETRI_ROOK
   %CHETRS %CHETRS2 %CHETRS_3 %CHETRS_AA %CHETRS_AA_2STAGE %CHETRS_ROOK %CHFRK
   %CHGEQZ %CHLA_TRANSTYPE %CHPCON %CHPEV %CHPEVD %CHPEVX %CHPGST %CHPGV
   %CHPGVD %CHPGVX %CHPRFS %CHPSV %CHPSVX %CHPTRD %CHPTRF %CHPTRI %CHPTRS
   %CHSEIN %CHSEQR %CLA_GBAMV %CLA_GBRCOND_C %CLA_GBRCOND_X
   %CLA_GBRFSX_EXTENDED %CLA_GBRPVGRW %CLA_GEAMV %CLA_GERCOND_C %CLA_GERCOND_X
   %CLA_GERFSX_EXTENDED %CLA_GERPVGRW %CLA_HEAMV %CLA_HERCOND_C %CLA_HERCOND_X
   %CLA_HERFSX_EXTENDED %CLA_HERPVGRW %CLA_LIN_BERR %CLA_PORCOND_C
   %CLA_PORCOND_X %CLA_PORFSX_EXTENDED %CLA_PORPVGRW %CLA_SYAMV %CLA_SYRCOND_C
   %CLA_SYRCOND_X %CLA_SYRFSX_EXTENDED %CLA_SYRPVGRW %CLA_WWADDW %CLABRD
   %CLACGV %CLACN2 %CLACON %CLACP2 %CLACPY %CLACRM %CLACRT %CLADIV %CLAED0
   %CLAED7 %CLAED8 %CLAEIN %CLAESY %CLAEV2 %CLAG2Z %CLAGS2 %CLAGTM %CLAHEF
   %CLAHEF_AA %CLAHEF_RK %CLAHEF_ROOK %CLAHQR %CLAHR2 %CLAIC1 %CLALS0 %CLALSA
   %CLALSD %CLAMSWLQ %CLAMTSQR %CLANGB %CLANGE %CLANGT %CLANHB %CLANHE %CLANHF
   %CLANHP %CLANHS %CLANHT %CLANSB %CLANSP)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
